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This report describes the searching methods and the search program for the 


automatic indexing method which was developed and implemented in an earlie r phase 
of the project. The indexing method generates index tags automatically from English 
language text and creates a machine searchable file of index records for the 
document being processed. Since the First Progress Report the indexing program has 
been modified to facilitate the updating and expansion of the computer-stored 
dictionary. The MEDICO file which is the output of the automatic indexing program is a 
direct file stored on magnetic tape and is sequenced by document accession number. 
The primary access point of the file can involve as many as four hierarchical levels 
and generic searches are easily implemented. Boolean searches allow for the retrieval 
of highly specific information. Prior. to searching, the Boolean expressions 


corresponding to the natural language query are formulated by the human searcher. . 


Normalization of the query to make it compatible with the index language is 
accomplished automatically by the computer. The tape file is searched sequentially to 
search for the presence. or absence of terms as prescribed in the Boolean 
expression. Several queries can be processed simultaneously and the output for each 


query can be printed out as a separate unit. (Author/JW) - 
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FOREWORD 


The work described in this Third Progress Report was conducted under grant LM-94 
from the Public Health Service National Library of Medicine. 
Rutgers University personnel participating in this phase of the project are: 
Dr. Susan Artandi, Principal Investigator 
Associate Professor, Graduate School of Library Service 
Mr. Stanley Baxendale 
Associate Professor, Department of Computer Sciences 
Mrs, Gillian McElroy, MLS 
A great deal of advice was received from Dr. Thomas H. Mott, Jr., Director, 
Center for Computer and Information Services and Chairman, Department of Computer 


Sciences, 
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ABSTRACT 


The searching method and the search program for the automatic indexing method developed 
in an earlier phase of the Project is described, The MEDICO file which is the output of the 
MEDICO automatic indexing program is a direct file on magnetic tape. The primary access 
points of the file can involve as many as four hierarchical levels. Generic searches are 


easily implemented and Boolean searches allow the retrieval of highly specific information. 
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I. INTRODUCTION 


This is the third Progress Report on research in automatic indexing of drug-related 
information conducted under grant LM-94 from the Public Health Service National Library of 


Medicine. 


I published in January 1968, describes the automatic indexing 


The First Progress Report, 
method which was developed in the Project, The method will generate index tags automatically 
from English language text. Pre-defined text characteristics are used to alert the computer to 
the presence of information that should be indexed, In the process of indexing the computer will 
switch from the uncontrolled vocabulary of the text to the controlled vocabulary of the index 
language and it will automatically compute weights for index terms, The indexing algorithm 
also includes a method for the automatic generation of links, 

The Second Progress Report, 2 published in November 1968, is concerned with the 
statistical evaluation of the output of the MEDICO automatic indexing method just described. 

The statistical tests were primarily designed to examine the validity of the assumptions which 
formed the bases of the algorithms developed for the computation of weights and the generation 
of links between index terms, Evaluation also included a comparison of the output generated 


from full text and from the processing of abstracts and summaries of the same articles, 


pe 
la rtandi, S. and S, Baxendale, Project MEDICO. First Progress Report. New 
Brunswick, N. J., Graduate School of Library Service, Rutgers, The State University, 1968, 


2 artandi, S. and E. H. Wolf. The effectiveness of weights and links in automatic index- 
ing. Project MEDICO. Second Progress Report, New Brunswick, N. J., Graduate School of 
Library Service, Rutgers, The State University, 1968, 
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II. SUMMARY 


This Third Progress Report describes the searching methods and the search program 
for the automatic indexing method which was developed and implemented in an earlier phase of 
the Project. The indexing method will generate index tags automatically from English 
language text and by utilizing explicitly defined text characteristics it creates a machine 
searchable file of index records for the document being processed. Some modifications in the 
indexing program are also described, 

The MEDICO file which is the output of the automatic indexing program is a direct file 
stored on magnetic tape and is sequenced by document accession number, The primary access 
points of the file can involve as many as four hierarchical levels and generic searches are 
easily implemented, Boolean searches allow for the retrieval of highly specific information. 

Prior to searching, the Boolean expressions corresponding to the natural language query 
are formulated by the human searcher, Normalization of the query to make it compatible with 
the index language is accomplished automatically by the computer, The tape file is searched 
sequentially to search for the presence or absence of terms as prescribed in the Boolean 


expression, Several queries can be processed simultaneously and the output for each query can 


be printed out as a separate unit. 


ITI, THE MEDICO INDEX FILE 


The MEDICO file is a direct file of document references and their associated index 
terms stored on magnetic tape in accession number order. In this sense the MEDICO file is 
similax to many other index files. The principal characteristic which distinguishes it from 
other files is that its content and format is automatically generated by the computer. 

The specification of the content of the index record is accomplished through the MEDICO 

indexing algorithm described in the First Progress Report. The output of the indexing program 
creates a record for each document containing the following data elements: author, title, 
citation, and index terms with their respective weights and Chemical Abstracts Registry 
Numbers, 

Since the MEDICO file is a direct file each record stands for a single document as 
opposed to an inverted file in which each record stands for a single index term, Inherent in the 
process of searching a direct file for documents specified by subject is the need to make a 
complete scan of the entire file for each query to be processed, The capability for 
simultaneous searches, processing several queries in a single pass of the tape, can compensate 
for this limitation. 

The MEDICO search program provides for simultaneous searches and allows for the out- 
put corresponding to each query to be printed out separately. 

Searching is essentially the reverse of indexing and the preparation of a search 
instruction involves procedures and sources of errors that are very similar to those encountered 
in indexing. The objective of searching is to identify those documents whose content is 
relevant to the query. . 

The output of a search may be viewed as the result of the relevance judgment of the 
system, Theoretically, the closer this resembles the relevance judgment of the user the better 
the system performs, In practice, however, the problem is not quite as clearcut, and factors 
influencing hoth system and user judgment need to be taken into consideration, 


In searching a documentary file communication with the file is accomplished through the 


index terms included in the records of the various documents. The nature of this communication 


¢/' 


6 
or the flexibility of searching will be to a large extent determined by the contents and the 


structure of the file records, 


The MEDICO record was designed to allow access to the drug information at as many cs 


four hierarchical levels, Figure 1 shows these hierarchical levels. 


Anticonvulsants 


Biological activity 


Drug group name 


Chemical or 

generic name Amobarbital) (Phenobarbita 

Trade name ( a (Isomytal ) | ) 
FIG. 1 


Since the drug group name is automatically posted for each compound, and since the 
chemical name and the drug group name are automatically posted for each trade name, generic 
searches are relatively easy tomake, The generic specific relationships are also displayed in 
the printout of the index record, All this is accomplished through the use of "packages." 

As it was already explained in the First Progress Report, a package is associated with 
each texvm in the system and it consists of those terms which will appear in the index record 
whenever that particular term is recognized in the document text. 

For example, if the name 5-ethyl-5-isopentylbarbituric acid were to appear in the text 
of the document, its corresponding package would be recorded in the index record: 

amobarbital 

5-ethyl-5-isoamylbarbituric acid 

barbiturates 

Reg, no. 97534 
The same package would be generated if 5-ethyl-5-isoamylbarbituric acid, or amobarbital were 
found in the text. If, however, a trade name such as Barbamyl would appear in the text, the 
package would also include Barbamy! in addition to what is given above. 


It_ should be noted that the fourth hierarchical level, group name according to chemical 


activity, was omitted from the MEDICO record because all of the drugs in the experiment were 


anticonvulsants, Whenever the term anticonvulsants appears in a record it means that it was 


generated directly from the text and not through generic posting. 


In addition to utilizing the primary access points in the index record, the search pro- 
gram is designed to make possible complex Boolean searches using the connectives AND, OR, 
and NOT. Any data element can be combined with any other included in the subject description 
part of the index record, involving the capability for many more possible cominbations than 
would probably be needed in practice. 

While the Boolean expression corresponding to the query is formulated by the human 
searcher, normalization of the search terms to make the query compatible with the index record 
is accomplished automatically by the computer. The index file is searched sequentially to 


search for terms as prescribed in the Boolean expression, Several queries can be searched 


simultaneously and the output relating to each query can be printed out as a separate unit, 
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IV. THE SEARCH PROGRAM os 

After the Boolean eewoasiona have been formulated the program automatically performs 
the normalization of the query. Normalization means that the program substitutes for the~ 
uncontrolled terms in the query the corresponding terms from the system vocabulary. 

The file is Scanned to find the terms in the query. When aterm is present a hit is 
scored; however, the final selection of an index record as a reference depends on the truth 
value of other terms in the query and the resultant truth value of the logical expression forming 
the query. The output of answers for any query will be a list of selected article numbers, 
When the whole file kas been passed these arrays of article numbers are used to control the } 
printout of the index records of articles that satisfy the queries. The main problem at this 
stage is to process the print tape sequentially and to print out all the records for a query | 
sequentially at the same time, followed by the printout of the records required by the results 

_ of the next query and so on. The program here uses as much main storage as possible and 
uses the Random Access Disk Unit as auxiliary storage. 

Queries are punched into cards in the format shown in Fig, 2. Card column 1 contains 
a letter A, conveniently but not necessarily, the first letter of the term, ANTICONVULSANT. 
The first twenty-four letters of the alphabet can be used for this purpose, but not Y or Z. 
These are reserved for the truth values true and false as will be explained in the description of 
the routine for evaluating logical expressions, Thus twenty-four different terms could appear 
in one query. 

If two or more terms begin with the same letter it would be necessary to use other 
letters to represent them, 

The use of jetters permits a useful condensation of the logical form of the query, : 
Card column 3 contains a single numeric digit code which indicates the type of term according , 
to the following table. 


x/y 


| ERIC 


10 


Term type codes used on query cards 

ee. Author 

eee Drug term 

ee. Registry number 

Association linkage (must be two cards together) 
eee Generic term 

eee End of query 

eee End of all queries 
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Figure 2 
Coding of logical form of query 
Boolean connectives 


eee AND 
ece OR 
= ece NOT 


The Boolean expression does not have to start in card column 1 and spaces can be used 
to improve legibility. 

As the query cards are read the information they contain is stored in arrays. Each item 
is associated with the letter representing it in the query and its position in the array. Each 
logical form of query is also stored. A 7 in a query card signals the end of all queries and 
causes the first index record to be read from the binary search tape and passes control to the 


logic evaluation routine. 


Searching for a particular query in the index records is simply a case of comparing the 
query terms successively with the terms in the index records, If the search is successful the 
truth value is set to true. So that as far as the particular term is concerned a hit has been 
made, 

The basic ideas used in evaluating the logical expression are simple. Consider that there 
are two kinds of, what we may call, elementary logical expressions, namely, those involving 
AND and those involving OR. The expression A AND B AND C is false as soon as a false term 
is found. That is, if A is false the whole expression is false and it is only necessary to fail 
in the search for A inthe index record to be able to abandon any further search. Similarly 
the expression A OR B OR C can be considered true as soon as a true term is found. Negation 


just reverses the truth value of a term. 
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Sample Worksheet for Query Formulation 


QUERY 


Which drugs (with the exception of barbiturates, hydantoins, and succinimides) have anti- 


convulsant activities ? 


CODED QUERY: WEIGHT 
CC Card Col 
1234 80 
A 4 ANTICONVULSANTS 2 
4 ACTIVITY 
B 2 BARBITURATES 
H 2 HYDANTOINS 3 
s 2 SUCCINIMIDES 2 


6 END OF QUERY 


LOGICAL FORM OF QUERY: 


A*-(B'H'S) 


FIG. 3 
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The MEDICO search program will evaluate the truth value of complicated Boolean 
expressions, including nested parenthetical expressions, 

Parenthetical expressions can be evaluated easily by putting the expression in a working 
storage area and using it to keep track of events in the following manner, 

First a left parenthesis is located and its position noted, next the first right parenthesis 
is located, Moving to the left find the nearest left parenthesis, This may or may not be the 
first left parenthesis encountered, At any rate within these parentheses an elementary 
expression is situated, The logic program calls successively on the search to establish the 
truth of the terms and the truth of expression is evaluated, Now the left parenthesis and all 
the terms in the elementary expression under discussion are blanked out and if the expression 
is true the right parenthesis is replaced by a Y meaning true, otherwise a Z meaning false. 
Applying this process recursively the truth of the query is established at the earliest 
opportunity, The result is a very fast search, All of the queries in a batch are processed 
against each index record in sequence, that is, all the queries are processed against the file 
in one pass of the tape. 

The output from this program is an array of the numbers of articles *hit' by each 
quesy in succession, 

The problems involved in searching relates to the sequential nature of a tape file and 
the relatively limited capacity of main storage, Given the array of hits produced by the query 
search program it is required to produce a set of printed records in proper sequence for each 
query inturn, This is accomplished in one pass of the print record tape which contains the 
index records in ascending order of article number, 

At this concluding stage of the program only the print program and its as sociated 
subroutines need be in memory so that the search program can be overlaid and there is more 
room available for storing article records, However, witha large file it would be necessary 
to use auxiliary disk storage, In brief, index records are read into memory and printed out 
in answer to tne query being processed, If the query needs an article, the articles preceding 
it on the tape are read into memory until the required article is reached and can be read in to 
be printed out. Proceeding in this way it is possible to run out of space in memory. To 


provide room some articles in memory are written out to disk storage and since disk storage 


is addressable, these articles can easily be read back when required. The articles chosen 


13 
for shunting on to disk are those with lowest priority. The traffic control of the movement and 
printing is by means of the SQUEEZ subroutine, 


Y 
* 
if 
. t 
i iq 
: 
4 
q % 
a 
4 
E F 
i : 
Fi e 
: a 
4 f 
; { 
y 
d 
: 
é 
5 
4 ig 
# id 
4 “a 
q : 
q a 
3 q 
j 
5 
: je 
i, 
Z : 
i i 
i a 
4 
yi 
ff 
id 
q 
‘ 
y 
Y 
; 
i 
ie 
, 
4 
i 
, 
Pi 
, 
iy 
cf 
a 
‘ 
fe 
i 
if 
: 
q 
d co 
i 
i 
: d 
; a 
; i 
yo 
"| 
i 
4 
‘1 
4 ‘<) ; 
; ERIC 
: o 
, 
& 
1 Bt er i eg Ld, ze a = = _ _ fa 
tn bt is = _ RT RE SE EE ET 7 = = Sa re pen een eae ae again 2 ani 


V. MODIFICATIONS IN THE INDEXING PROGRAM 


Some changes were made in the indexing program since the First Progress Report, 

The modifications are primarily intended to facilitate the updating and expansion of the dictionary. 
The complete revised indexing program is included in the Appendix, 

As it was described in the First Progress Report, associated with dictionary terms in 
memory is a matrix of transfer addresses, As a text word is checked against the dictionary the 
first two characters of the word are converted into a unique numeric index. This index is, 
in effect, an'indirect address’ of a location in the matrix which contains the address of the 
first term in the dictionary beginning with the same two characters. Suppose the textword is 
AMOBARBITAL, then automatically the first two letters of the word are used to "look up’ or 
locate the first term in the dictionary beginning with AM which is AMINOGLUTHEMIDE, How- 
ever, if the text word were AXILLARY the index deriving from AX would find a location in the 
matrix of transfer addresses containing a zero indicating that the dictionary did not contain any 


terms beginning with AX, 


Initially, when the dictionary was first set up the terms were sorted according to the 
’ IBM 7040 scientific collating sequence using the available system IBSORT routine, Before this 


modification was made a section of the dictionary containing the words under consideration looked 


as in the figure below. 
542 25 ALPHA(P-AMINOPHENYL)-ALPHA ETHYL-GLUTARIMIDE 
547 -25 | AMINOGLUTETHIMIDE : 
552 #25  #AMINO-GLUTETHIMIDE 
556 -9 AMOBARBITAL 
561-14 AMOBARBITAL SODIUM 
566 -9 | AMYLOBARBITONE 
569 9  AMYTAL 
574 14.  AMYTAL SODIUM : 
579 -49 | #ANTICONVULSANT 


Any term is preceded by two numeric terms; the first points to the beginning of the 


next dictionary term and the second is the package number with a sign indicating whether the 


14/38 
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16 
term has to be placed in the index record together with the package. Ifthe sign is positive the 
term will be printed in the record together with the package, if negative, only the package terms 
are printed, 

For example, 542 is the address of the first computer word of AMINOGLUTETHIMIDE. 
542 is the address of the first term beginning with AM and consequently 542 appears in the 
matrix of transfer addresses at the location designated by the index constructed from the 
letters AM. Thus, its appearance in the dictionary can be considered to be redundant, Its 

| use, however, allowed the calculation of the length of the dictionary term plus two as the 

| difference between two successive addresses, 547-542 gives 5 as the number of computer words 
. ; containing the following information. 

547 -25 AMINOGLUTHETHIMDE 

Hence, the term is contained in 3 computer words, This length computed in the 
dictionary processing program is thus implicitly available for use in the indexing process 


and the search program. 


The -25 indicates that the associated package is number 25 and that the term does not 


have to be printed in addition to the package terms because, in this case, it is one of the 


ae A) AE yee 


terms in the package, 

‘Two modifications were introduced; one, was to replace the address 542 with a zero 
which is now used to indicate the last term beginning with AL, Similarly, 574 which is the 
location of the first term beginning with AN can be made 0 to indicate the last term, AMYTAL 
SODIUM, in the group of terms beginning with AM, Another simple modification allows the 
storage of the length of the dictionary term in the word containing its package number, : 

Consider the example in the following figures. 

556] __- 9] AMOBARJ BITAL | j 


The previous address was 552and hence 556-552=2 gives 2 computer words for the length of 
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AMOBARBITAL. q 
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Bi The package number word. is represented below. 
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Package number 36 bits 


36 1 
100000000000000000000 | 000000000001001 
9 

| | 15 1 
100000000000000000010 {000000000001001 
2 9 

L=2 PACKNO = -9 


Since only four bits are required to represent the length of a term which is not likely to 
exceed 15 computer words it is feasible to let each address be the link to the next term in 
that group wherever it is placed instead of calculating length from the addresses of successive 
terms, This removes any necessity to sort the terms and it is possible to update the 
dictionary quite freely, The portion of the dictionary described before would now appear as 
indicated below. 

0 8/25 ALPHA(P-AMINOPHENYL)-ALPHA ETHYL-GLUTARIMIDE 

547 3/-25 AMINOGLUTETHIMIDE 

552 3/25 AMINO-GLUTETHIMIDE 

556 2/-9 AMOBARBITAL 

561 3/-14 AMOBARBITAL SODIUM 

566 3/-9 AMYLOBARBITONE 

569 1/9 AMYTAL 

0 3/14 AMYTAL SODIUM 

579 3/-49 ANTICONVULSANT 


Trying to match AMOBARBITAL would result in the length 2 being compared successively 
with the lengths 3, 3 and finding equality of length at the third attempt, Following the 
successful length test, and the testing of the successive computer words frum which the term 
is made up AMOBARBITAL will give a hit, If the word being tested were AMMONIA the length 
test would be successful at AMOBARBITAL since each term occupies two computer words; how- 
ever, the comparison of computer words would fail on the first comparison, Subsequent length 
tests would fail including the test against the length of AMYTAL SODIUM. The search is now 


terminated with no hit since AMYTAL SODIUM is the last term in the group as Signalled by the 


zero. 


With the modification just described new terms can be added to the dictionary without 


“ 
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invalidating the content of previously created index records, When new terms are added to the 
dictionary they are simply placed at the end and the pointer to the new term is placed in the 
link word of the previously last word in the group replacing the zero denoting the end of the 
string. Any number of new terms can be added and linked in the usual way with the last word 
in a group being designated by the zero address, 

If it is necessary to adda term, for example, AXILLARY and no group of terms of 
which the first two letters are AX exists in the dictionary then its computed index will point 
to a location in the transfer address matrix which contains a zero, The program inserts 


the address of the available location in the dictionary at which the term will be placed into the 


appropriate word of the transfer matrix replacing the zero. 
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(=F) DEPENDING 
ON EX 


ERASE LOGICAL 
EXPRESS ION 
FROM CC2-1 TO 
cc3 


FERIC 


LOGICAL 


LOGIC SUBROUTINE 


25 


ig 
g 
” 
if 
if 
x 


26 
PRINT PROGRAM - CHART I 


be INITIALIZE 
_ NQ=1; 
Et PRINT OFF 


| e le-T+1 ee alia 
| 


NQ@NQ+1 
PRINT NOTICE 
OF NEW QUERY 


COMPARE 
S(1):0 


'FIND' AND 
S(1) :NA+L PRINT © 
OPTION ON (T) AariTere 
READ ARTICLE ; 
NUMBER OF 
NEXT ARTICLE | 
ON TAPE 


j 
aw 
i 
t 
ee SET PRINT COMPARE 
| 
! 
| 


SEARCH 
REMAINING 
ARRAY S FOR : 
et ANY REFERENCES 

Do READ ONE 

af PRINTED LINE 

2 FROM TAPE B-5 

Rt 7 
yi 
i” ; 


"LOC' 


| 
; 
ri 
t 
5 
wn 
. 


REACHED? 


ADD 
INFORMATION 
ABOUT THIS NEW 

ARTICLE TO 


PRINT PROGRAM - CHART 2 


YES 


SET PRINT 


OPTION OFF 


OE a eee ee 


ata aon 


28 


F ERIC 


PRINT PROGRAM - CHART 3 


‘FIND ' 
AND PRINT 
ARTICLE 


EXPANSION OF 


IN FILE FOR 
ENOUGH 
ROOM IN 
"FILE ' 


EXTRACT 
STARTING 
LOCATION OF 
ARTICLE FROM 


READ BACK 
ARTICLE FROM 
DISC, DELETE 
S(I) 
FROM 'DISK' 


PRINT ARTICLE UPDATE LAST 
UNTIL EOA AND LOC TO 
REACHED SHOW INFO 
FOR NEW 


ARTICLE 


SEARCH 
REMAINING 
ARRAYS FOR 


OTHER REFER- 
ENCES TO S(I 


IS 
0 
THERE 1 OR : 


MORE? 


EXIT 


fp ane ns 


Pe 


a eat 


Q- 
-ERIC 


2. Sample Query Input to Search Program and its Corresponding Output 
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TS ee ee oe 


Ia ae say 


59/31 


Query 1. Drugs which are active as anticonvulsants but which are not of the barbiturate, 
hydantoin or succinimide groups. 


A 4ANTICONVULSANTS 
4ACTIVITY 

B 2BARBITURATES 

H 2HYDANTOINS 

S 2SUCCINIMIDES 
6 

A * -(BtHtS). 


Query 2. The use of 3, 5, 5-trimethyloxazolidine-2, 4-dione as an anticonvulsant, 


T 239595-TRIMETHYLOXAZOL IDINE~254-DIONE 
A 2ANTICONVULSANT 

6 
T * Ae 


Query 3. The use of barbiturates in the treatment of convulsive disorders with the exception 
of amobarbital. 


A 4ANTICONVULSANTS 
4TREATMENT 
B ZBARBITURATES 
P 2AMOBARBITAL 
6 i 
A * B #-Pe. 


Query 4, What is the chemical name of sulthiame ? 


S 2SULTHIAME 
. i 
Se q 


Query 5. What hydantoins other than phethenylate can be used in anticonvulsant therapy ? 


A 4ANTICONVULSANTS 
4 THERAPY 

H 2HYDANTOINS ; 

P 2PHETHENYLATE 
6 

A * H * —P, 


Query 6. What kind of toxic side effects can be expected when Tegretol is administered ? 


T 4TEGRETOL : 
4 ADMINISTRATION 4 
U 4TEGRETOL 
4TOXIC } 
S 4TEGRETOL 4 
4SIDE EFFECTS 
6 1 
T#UeS. 


ERIC | | 


~ 


32 


Cort 


Query 7. Articles on the effectiveness of diphenylhydantoin as a therapeutic agent and 
articles on recommended dosage. 
A 401 PHENYLHYDANTOIN 
4EFFECT 
B 40IPHENYLHYDANTOIN 
4D0SAGE 
C 4D0IPHENYLHYDANTOIN 
7 4 THERAPY 
£ 6 
ys (A # B) + C. 
i Query 8, The optimum dose of trimethadione in the treatment of epileptics. 
} 


wees 


I ree ED 


se Le 


dette RES 


M 4TRIMETHADIONE 
aE 4D0SE 

an N 4TRIMETHADIONE 
; 4EPILEPSY 


it O 4TRIMETHADIONE 
aE 4 THERAPY 

P|: 6 

| 

j 


pe 


M#*# N * Of 
i Query 9. Administration of diphenylhydantoin sodium in the treatment of trigeminal neuralgia. 


A 4DIPHENYLHYDANTOIN SODIUM 
4ADMINISTRATION 

B 4DIPHENYLHYDANTOIN SODIUM 
4TREATMENT 
6 

A * Be 


j Query 10. Articles which have as a central topic the use of primidone as an anticonvulsant, 
Primidone with weight of 3 and anticonvulsant with weight of 3. 


P 2PRIMIDONE 3 

A 2ANTICONVULSANTS 3 

6 

‘ P # Ae 

Query 11. Articles which have as a central topic the use of primidone as an anticonvulsant, 
Primidone with a weight of 3 and anticonvulsant with a weight of 2. 


P 2PRIMIDONE 

A 2ANTICONVULSANTS 
6 

P * Ae 


tetre dees Gi eee ne 
Nh Ww 


Query 12. Articles which refer to oxazolidinediones, 


O SOXAZOLIOINEDIONES 
6 
O. 


ae ee ae een ere 


f Query 13, Articles which mention barbiturates, 


_ B 5BARBITURATES 
6 


Be 


: 33 
Query 14. The chemical name and C.A. registry number of succinimides which are used as 
: anticonvulsants. 

S SSUCCINIMIDES 

A 2ANTICONVULSANTS 
F 6 
E S * Ae 
g i 
a 
i 

Y 

i i 
q 
4 i 
q 
: 
: 5 
4 
i 


4 
4 
4 
u 
4, 
) 
q 
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QUERY 


QUERY 
QUERY 
QUERY 
QUERY 
QUERY 


QUERY 


QUERY 
QUERY 
QUERY 
QUERY 
QUERY 


QUERY 


QUERY 


13 


14 


SATISFIED 


SATISFIED 
SATISFIED 
SATISFIED 
SATISFIED 
SATISFIED 


SATISFIED 


SATISFIED 
SATISFIED 
SATISFIED 
SATISFIED 
SATISFIED 


SATISFIFO 


SATISFIED 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


ARTICLES 


ARTICLES 
ARTICLES 
ARTICLES 
ARTICLES 
ARTICLES 


ARTICLES 


ARTICLES 
ARTICLES 
ARTICLES 
ARTICLES 
ARTICLES 


ARTICLES 


ARTICLES 


10 
26 


ee atone 


3. 


Sample Records from Automatic Index File 
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a 2 


ee ee 


; q 
; 36 
ARTICLE NUMBER 2 q 
BERNSTEIN ZL 
TREATMENT OF BARBITURATE COMA. 
: NEW YORK J MED 66, 2290-4» 1 SEP 66 
j 2428 WORDS IN THIS ARTICLE. 
1 567410 (2) DIPHENYLHYDANTOIN® 595-D1PHENYL-2+4-IMIDAZOLIDINEDIONEs 
HYDANTOINS 
ql (3) BARBITURATES . 
. 57432 (1) AMOBARBITAL, S-ETHYL-5-ISOAMYLBARBITURIC ACID, BARBITURATES 
1 50066 (1) 5-ETHYL-S-PHENYLBARBITURIC ACID, PHENOBARBITAL, BARBITURATES { 
wae ‘ 
q id 
rit DIPHENYLHYDANTOIN/ THERAPY (1) 
t BARBITURATES/ EFFECT (1)+ ACTIVITY (1)* THERAPY (3)» DOSAGE (1) 
| 
i *END OF ARTICLE® | 
ae 
ly | 
an i 
ATi 
; 
qi | 4 
Z | 
4 1 ¢ 4 
a5 : 
| 
Bit 
a | 
fl | 
u 
i 


37 


ARTICLE NUMBER 6 

MILLICHAP JG, ORTIZ WR 

NITRAZEPAM IN MYOCLONIC EPILEPSIES 

AMER J DIS CHILD, 1125 242-248, SEPT. 1966. 
2534 WORDS IN THIS ARTICLE. 

(3) ANTICONVULSANTS 


125337 (1) PRIMIDONE, 5-PHENYL-5-ETHYL HEXAHYDROPYRIMI DINE-4,6-DI ONE, 
BARBITURATES 


57410 (1) DIPHENYLHYDANTOIN» 5¢5-DI PHENYL-254-IMIDAZOLIDINEDIONE, 
HYDANTOINS 


50066 (1) S-ETHYL-5-PHENYLBARBITURIC ACID, PHENOBARBITAL, BARBITURATES 


115388 (1) MEPHOBARBITAL, 5-ETHYL-1—METHYL-5—PHENYLBARBITURIC ACID, 
BARBITURATES 


77418 (1) CELONTINe Ne2—DIMETHYL-2-PHENYLSUCCINIMIDE, SUCCINIMIDES, 
METHSUXIMIDE 


ANTICONVULSANTS/ THERAPY (1), EFFECT (3)9 ACTIVITY (1) 


*END OF ARTICLE*# 


48/39 


4, Automatic Indexing Program Listing 


sae Fae os a 


a 
i 
if 
i 
% 
ff 
h 
a aoa = acre = — Se ST Tt r 


40 


4 oe ae 


-—f-§-t—t—f—-t—t- tt ‘ 
PRR CEES TEESE TEC TET TRE ET ETE RTT EET EEE ESI SETTER EET ET ES SY 
aeneee DATA INPUT AND INITIALIZATION SECTION «## #0 
PERCE TET ETE TEST ET ETI REESE TEE ET ETS EET ETE TEE TERT ET ES ES i 
READ IN THE PARAMETER CARD. 
IT IS REQUIRED TO AAVE NUMBERS PUNCHED IN COLUMNS 1-35 5s 7, AND 8-10 
OF THE PARAMETER CARD (THE FIRST CARD TO BE READ). ’ 
THE THREE CIGIT NUWBER PUNCHED IN COLS. 1-3 IS USED BY THE SUBROUTINE i 
-HEAD- FOR THE WARGIN WIDTH OF THE HEADING OF EACH ARTICLE. i 
A NUMBER PUNCHED IN COLUMN 5 HAS THE FOLLOWING MEANING 
LeeeLIST COMPARISONS AND LARGE WORDS. 
ZeeeLIST COMPARISONS ONLY. 
3eeceLIST LARGE WORDS ONLY. 
4eeeD0 NOT LIST COMPARISONS OR LARGE WORDS. 
A NUMBER PUNCHED IN COLUMN 7 HAS THE FOLLOWING MEANING 
2eeeDO0 NOT SAVE NON-MEDICAL TERMSe (THEIR ASSOCIATION WITH 


7 571 BAXEND FORTRAN SOURCE LIST 
: ISN SOURCE STATEMENT 
O $IBFTC EDIT 
t 1 DIMENSION INBUF (72) 
2 DIMENSION NMWO2D(50+2) 
Ai 3 DIMENSION INDIC(3) 
Pi 4 DIMENSION EOA(4) 
- 5 DIMENSION NOWRD (4) »NOLINE(12) 
B 6 DATA NOWRD»NOLINE/23H WORDS IN THIS ARTICLE.,s72H 
Bi 7 DATA ECA/22H #END OF ARTICLE*/ 
7 10 DATA BLANKsZeCIMMA,PERIOD/1H 2g 1LHZs_lHy, lHe/ 
at il DATA INDIC/1H1, LH2_1H3/ 
ae 12 DATA MAyXyDASHy LP ¢ RP, SLASH 2 AST gEIGHT/LHMy LHX» LH—-» LH 9 LH) 9 LH/ oe LHe 
: 11H8/ 
at 13 DATA DOUBL » TRE3L /0606000000000 »0606060000000/ 
B 14 COMMON /H/ MARS INsARTNUM»NAs AUTHOR (6,5) 
S| 15 COMMON /LIN/ LINE(132) sLINDEXsLMARGs DICT( 3000) 
16 COMMON KWORD (14) »sNWRDS »WORD(72) sLENGTHs TEND 
: 17 EQUIVALENCE (W2DCT,RDCT) 
; 20 INTEGER DICT 
E 21 INTEGER PACK4(350) ,PACK1(100) 
22 INTEGER COLUMNe PERIOD» COMMAs Z» BLANK» WORD» TRADD( 4096) 
23 INTEGER GOODWD( 100,2) »GINDEX 
j 24 INTEGER SAVE »SVINDX*SUPL(750) 
: 25 INTEGER SVLNGH 
26 INTEGER SINDX2 
i 27 INTEGER SUPL2(400) 
4 30 INTEGER PINDEXs PACKNO, REGNO 
31 INTEGER ENDSEN 
32 INTEGER SUPL3(5993) eTYPELsTYPE2s SINDX3 
33 INTEGER SWle SW2 
34 INTEGER WROCT, WOCT 
35 INTEGER PTERM 
36 INTEGER RP 2X sDASHs EIGHT» SLASH, AST 
: 37 INTEGER PCOUNT 
: C re ee et ee ee eee i 
: 40 INTEGER ARTNUMy REGNOS ( 30) » PAKNOS (30) » TRNAMS (30) sCOMPAR( 100+ 2) 
| 41 INTEGER AN 
42 INTEGER REGNWT( 30) ¢PKNOWT (30) »COMPWT(100) 
b, i 
| 
| 
| 


AAAAAAAAAAAMAAAAAN 


eee ee 


571 


ISN 


AAAAAAAAAANA 


a a aaoanaianan 


41 


BAXEND FORTRAN SOURCE LIST EDIT 
SOURCE STATEMENT 


MEDICAL TERMS WILL BE SAVED). 

THE THREE DIGIT NUMBER PUNCHED IN COLS. 8-10 IS FOR USE BY THE 
SUBROUTINE -WRDPJT— FOR THE WIDTH OF THE PRINT LINE USED FOR 
CUTPUT OF VALID WEDICAL WORDS, NON-MEDICAL WORDS» AND ASSOCIATIONS. 

A NUMBER PUNCHED IN COLUMN 11 HAS THE FOLLOWING MEANING 

Leese PROCESS INDEX FILE FROM BEGINNING 
ANY PTHER DIGIT .«e. ADD RECORDS OF NEW ARTICLES AFTER LAST ARTICLE 

RECORD ON FILE 

MODIFICATIONS TO PROGRAM ADDED SINCE PUBLICATION OF PROJECT MEDICO - 

FIRST PROJECT REPORT - JANUARY 1968 ARE INDICATED BY BROKEN LINES 

—fot— tt ttt ot 
READ (5,1) MARSINe SW1sSW22LMARGs ARTNUM 
L FORMAT(I3s212s13511) 
REWIND 4 
IF(ARTNUM-eNE-1) GO TO 82 
REWIND 2 
REWIND 3 
READ IN TRANSFER ADDRESS ARRAY FROM TAPE B-3- 
READ (2) TRADD 
WRITE (3) TRADOD 
READ IN DICTIONARY SIZE AND CONDENSED DICTIONARY. 
READ (2) Je(DICT(I) sI=1leJ) 
WRITE (3) Je (DICT(IT),T=1,J) 
READ IN PACKAGE ARRAYSe 
READ(2) PACK4sPACK1L 
WRITE (3) PACKG,PACKL 
REWIND 2 
GO TG 2 
82 REWIND 3 
READ (3) TRADD 
READ(3) Je(DICT(I) sT=leJ) 
READ (3) PACK4,PACK1 
83 READ (3) ARTNUM,AN 
IF (AN.NE.999) SO TO 83 
PROCESS THE BIBLIOGRAPHIC CITATION FOR THE NEXT ARTICLE. 
2 CALL HEAD 

GO TO (98297) eT END 

97 AN=999 
WRITE (3) ARTNUM,AN 
CALL EXIT 

INITIALIZE LENGTH 

98 LENGTH = 0 

INITIALIZE WORD COUNT TO O. 
WRDCT = 0 

SET -VALID WORD- INDICATOR TO O (OFF). 
IVALID=0 

SET -PREVICUS VALID WORD IN SENTENCE- INDICATOR TO O (OFF). 
ISENT=0 

SET -REACHED END OF SENTENCE- INDICATOR TO O (OFF). 
ENDSEN=0 

INITIALIZE INDEXES FOR 5 FILES. 
GINDEX=1 
NMINDX = 1 
SVINDX=1 
SINDX2=1 


ae 
mt 
ae 
an 
R iE 
i 
ae 
R . 
i 
a a 
i 
i 
y 
B ft 
3 
By 
az 
ae 
Ei 
4 


ee a ee 


re 


ISN 


144 


145 
146 
147 
150 
151 
152 


153 
154 
155 
156 


157 
160 


161 
163 


164 
167 


170 
173 


174 
175 
177 
200 


203 
204 


205 
210 


213 


214 
215 


216 
221 


222 


FORTRAN SOURCE LIST EDIT 


SOURCE STATEMENT 


SET FIRST WORD IN EACH FILE TO O (THIS IDENTIFIES THE -END OF 
FOR EACH FILE). 
GOODWD (1,1)=0 
NMWORD (1,91) 


aa 


SUPL2(1)=0 
SUPL3(191)=0 
SUPL3 (192) =0 


tote tet tet t- t— 


Pere e PST EC STE CET ETT RSET TT TT TTT ETF 
#eeee8 WORD EXTRACTION SECTION ####0# 
Pe eT PPS TSC ERSTE SC PTS TL ESET TET ST ETS TES SS 
READ IN ONE CARD OF THE TEXT. 
3 READ(15s4) INBUF 
4 FORMAT (72A1) 
CHECK FOR END OF ARTICLE CARD (222) 
IF (INBUF (1) EQ. ZeAND. INBUF(2) EQ. Z.AND. INBUF(3)2EQ.Z) GO 
INITIALIZE TO CHECK BEGINNING OF INPUT BUFFER. 
DO 5 I=ly72 
LOOK FOR A BLANK BETWEEN TWO WORDS.~ 
IF (INBUF(I).E2eBLANK) GO TO 6 
LENGTH=LENGTH4L 
REMOVE THE NON-BLANK CHARACTER FROM THE INPUT BUFFER. 
WORD(LENGTH) =INBUF (I) 
5 CONTINUE 


aaaan 


CHECK TO SEE IF WORD IS NULLe- 
6 IF(LENGTHeEQ.0) GO TO 5 
INCREASE THE WORD COUNT. 


WORD IS NOT NULL, CHECK FOR PUNCTUATION AND END OF SENTENCE. 
IF (WORD( LENGTH) -EQ.PERICD) 
IF (WORD(LENGTH) .EQePERIOD.OReWORD(LENGTH) -EQ.COMMA) GO TO 7 
THERE IS NO PUNCTUATION 


REMOVE LAST CHARACTER (PUNCTUATION) 
7 WORD(LENGTH) =BL ANK 
LENGTH=LENGTH=-1 
CHECK FOR A SHORT WORD 
8 IF(LENGTH.LT.4) GO TO 25 
CONDENSE THE TEXT WORD TO Aé FORMAT. 
CALL COMPOS 
POPS RSET SPEEA ET TERETE EE RTE EEL EER SE SS 
weeeee DICTIONARY SEARCH SECTION ###844% 
ee ee a EE EE EE 
GENERATE TRANSFER MATRIX ADDRESS INDEX 
IF (KWORD(1)-LT-0O) GO 


aaan oo oO 


a SPE aE tithes 
% 


a a 


571 


ISN 


225 
226 
227 
230 
231 


232 
235 
236 
241 
242 
245 
246 
247 
252 
254 
257 
260 


261 
262 


263 
264 


265 
266 


267 
270 


271 
274 
275 
276 
277 
302 


AAA 


io) 


“a oO AAALA oO iw) 


ao ie) aa 


ie eee 


43 


BAXEND FORTRAN SOURCE LIST EDIT 
SOURCE STATEMENT 


INDEX=KWORD(1)/2##24 
GO TO 10 
9 INDEX=2##11-KWORD(LI/20824 
10 INDEX=INDEX+1 
M = TRADD( INDEX) 
IF TRANSFER ADDRESS IS O, WORD IS NO GOOD 
11 IF (MeEQ.0) GO TO 22 
IF WORD IS ALPHABETICALLY BELOW DICTIONARY ENTRY» END CICTIONARY 
SEARCH 
IF (KWORD(L)) 12,25,13 
12 IF (KWOGRD(L).GT.DICT(M)) GO TO 19 
GO TO 14 
13 IF (DICT(M)-GTeKWORD(L)) GO TO 19 
14 MTEMP=M 
CHECK FOR A MAXIMUM COMPARISON WITH A DICTIONARY WORD 
DO 15 MAXCOM=1l: NWRDS 
1F (DICT(MTEMP) -NE-KWORD(MAXCOM)) GO TO 18 
15 MTEMP=MTEMPtl 


TEST TEXT WORD AND DICT WORD FOR EQUAL LENGTH, IF SAME .-- GOOD WORD 
IF (NWRDS.EQ. (DICT (M-2 )-(M4#2)))GO TU 28 
SAVE=M 
MAX=1 


MODIFY INDEX M UP TO NEXT DICT ENTRY. 
16 M=DICT(M-2) 
GO TO ll 
TERT EET ESTES EESTI RSI RSET ETE SITET ETE EET ETE SS 
#eeeee MULTIPLE WORD CHECK SECTION seeneee 
CFE REE ESTEE SLT ESSERE REE EET ESTEE EERE ET ET REE SS 
INCREASE LENGTH AND INDEX I 
17 LENGTH = LENGTHtl 
l=I+l 
PUT IN A BLANK 
WORD(LENGTH) =BL ANK 
SVLNGH=LENGTHtl 


SET INDICATOR TO SHOW THAT A MULTIPLE WORD CHECK IS IN PROGRESS. 
MULWRD=1 

GO BACK TO WORD EXTRACTION SECTION 
GO TO 5 


SSS SESSEE EERE EEESEE ESSE EERE SEES SEER EE EEE EE 
aeaeeee SAVE WORD SECTION (PARTIAL COMPARISON) ##ee88 
OFS EE EEE EE EEE EEE EEE EEE EEEE EE EEE EEE EEE EEE ED 
LOOK FOR PARTIAL COMPARISON, INDEX MAXCOM=1 MEANS NO COMPARISON 
18 IF ((MAXCOM.EQe1)-OR-(MAXCOM.LT.MAX+1)) GO TO 16 
SET SAVE INDICATOR TO DICTIONARY INDEX 
SAVE = M 
SET MAX TO MAXIMUM COMPARISON 
MAX=MAXCOM-1L 
GO TO 16 
TEST SAVE INDICATOR FOR A NON-VALIO WORD, IF ZERO» DO NOT SAVE 
GO TEST FOR LENGTH 
19 IF (SAVE.EQ.0) GO TO 22 
IF MULTIPLE WORD CHECK IS IN PROGRESS DO NOT SAVE ANY PARTIAL COMPARISONS 
IF (MULWRD.EQ.1) GO TO 25 
WE NOW HAVE A SINGLE WORD THAT COMPARES TO A WORC IN THE DICTIONARY. 
TEST PROGRAM PARAMETER TO SEE IF THIS WORD SHOULD BE SAVED. 


2, 


44 


571 


ISN 
305 


306 
307 
310 
311 
312 
313 
314 
316 


317 


320 
323 


330 


331 
332 
333 
334 
336 
337 


340 
343 


346 
347 
350 
351 
353 
354 
355 


356 
357 


360 
361 


iw) aa a OAaAY aa 


oO o AAAAAN 


BAXEND FORTRAN SOURCE LIST EDIT 
SOURCE STATEMENT 


GO TO (20920917517), SW 
PUT DICTIONARY INDEX, MAXIMUM COMPARISON», WORD LENGTH, AND TEXT WORD 
IN SUPPLEMENTARY RECORD 
20 SUPL(SVINDX) = SAVE 
SUPL (SVINDX4#1)=MAX 
SUPL (SVINDX#2)=NWRDS 
SVINDX=SVINDX+#3 
pO 21 J=l»NWRDS 
SUPL (SVINDX) =KWORD( J) 
21 SVINDX=SVINDX+41 
SUPL (SVINDX)=0 
ZERO WILL BE WRITTEN OVER BY NEXT ENTRY IN SUPL. RECORD, OTHERWISE 
IT IS A SIGNAL FOR THE END OF THE SUPLe RECORD 
GO TO 17 
SRSRSSSSSSSESSSESSESSESSSSSRESSESS SHEESH EEE Ee 
a#eeeee SAVE WORD SECTION (LARGE WORD) ###884 
TORE EES ERE ETE EET ETT ERE TT ETE TEE ETE TEE ETRE EE SE SS 
TEST FOR LARGE SINGLE WORDS. 
22 IF ((LENGTHeLT.18) -ORe (MULWRD.EQ.1)) GO TO 25 
PUNCH A CARD WITH THE LONG WORD. 
WRITE (7,80) (KWORD( J) ,J=1,NWRDS) 
WE NOW HAVE A LARGE WORD (18 OR MORE CHARACTERS). TEST PROGRAM 
PARAMETER TO SEE IF THIS WORD SHOULD BE SAVED. 
GO TO (23225223225), Swl 
SAVE WORD IN SUPL. RECCRD 2 
23 SUPL2(SINDX2) = NWRDS 
DO 24 J = leNW2DS 
SINDX2=S1INDX2+41 
24 SUPL2(SINDX2)=KWORD(J) 
SINODX2=SINDX2+41 
SUPL2(SINDX2)=0 
ZERO WILL BE WRITTEN OVER BY NEXT ENTRY» OTHERWISE IT IS AN END OF 
RECORO SIGNAL. 
PORES T TET SESE T TET TESTER E EET ESTEE ETE EET ET EES SE 
#eeeee WORD CHECK CIMPLETED SECTION ## #888 
TERETE EST AEE ECE EET ETT RRS EEE TET EE EEE LET ETRE SS 
CHECK FOR A MULTIPLE WORD. 
25 IF (MULWRD.EQ.9) GO TO 27 
IF THIS WORD IS VALIDs GO TO VALID WORD SECTION. 
IF (IVALIO.NE.0) GO TO 29 
RESTORE SECOND (ADDENDED wORD) OF MULTIPLE WORD FOR A SEPARATE CHECK, 
J=1 
DO 26 K=SVLNGH, LENGTH 
WORD (J )=WORD(K) 
26 JzJ+1 
LENGTH=LENGTH41-SVLNGH 
MULWRD=90 
SAVE=0 
GO BACK TO PROCESS THIS wORD. 
GO TO 8 
REINITIALIZE FOR A NEW TEXT WORD 
27 LENGTH=0 
SAVE=0 
MAX=0 
CHECK To SEE IF END OF SENTENCE WAS REACHED. IF SO, TURN OFF 


i 

i 
7 
a 
a 
is 
bb 
A 


571 


ISN 


362 
365 
366 


367 


370 
373 


374 
377 
400 
403 
404 
405 
406 
411 
413 
414 
415 


416 
417 


420 
421 


422 
423 
426 
430 
431 
432 
433 


434 
435 


436 


aa nf fF AoA A AAA Aaa 


BAXEND FORTRAN SOURCE LIST EDIT 
SOURCE STATEMENT 


-PREVICUS VALID WORD IN SENTENCE= INDICATOR. 
IF (ENDSEN.EQe1l) ISENT=0 
ENDSEN=0 
GO TO 5 
Tee TTS SCE LET ESET ESTERS ET ETE TSE FS 
ae#aeeeVALIO WORD SECTION ##eee2 
SSHAKSASSSKSSSSSARASSELSKSKASAKE ES 
28 IVALID=M 
EVEN THOUGH A WORD IS VALID, IT IS POSSIBLE FOR IT TO BE PART OF A 
MULTIPLE WORD, SO TEST TO SEE IF THIS VALIO WORD IS A SINGLE WORD OR 
A MULTIPLE WORD. 
IF (MULWRD.EQ.1) GO TO 29 
GO PICK UP SECOND WORD FROM TEXT. 
GO TO 17 
IF THERE HAS BEEN ANOTHER VALID WORD IN THE SAME SENTENCE, GO TO 
VALID WORD ASSOCIATION SECTION. 
29 IF (CISENT.NE-0) GO TO 38 
PICK UP PACKAGE NUMBER OF THIS WORD FROM DICTIONARY. 
30 ITEMP = I[ABS(DICT(IVALID~-1)) 
TEST PACKAGE NUMBER TO SEE IF wORD IS MEDICAL OR NON-MEDICAL. 
IF (CITEMP.LT.209) GO TO 34 
WORD IS NON-MEDICAL», TEST PROGRAM PARAMETER TO SEE IF IT SHOULD BE 
SAVED. 
GO TO (31,36)% SW2 
31 IVALID = PACKL( I TEMP~200) 
SEARCH NON-MEDICAL FILE FOR THE SAME WORD. 
DO 32 J = l»eNMINDX 
IF CIVALID-EQeNMWORD(J,1)) GO TO 33 
32 CONTINUE 
PUT NEW WORD AND THE COUNT IN THE FILE. 
NMWORD(NMINDXe1l) = IVALID 
NMWORD(NMINDX,2) = 1 
NMINDX = NMINDX41L 
SET UP A NEW END OF FILE INDICATOR. 
NMWORD(NMINDX91) = O 
GO TO 36 
SINCE WORD IS ALREADY IN THE FILE, JUST INCREASE ITS COUNT. 
33 NMWORD(J,2) = NMWORD(J52)+41 
GO TO 36 
PRCCESS THE VALID MEDICAL WORD, SEARCH THE FILE FOR THE SAME WORD. 
34 DO 35 J=1,GINDEX 
IF CIVALID-EQ-GOODWD(J21)) GO TO 37 
35 CONTINUE 
PUT NEW WORD INTO LIST OF VALID MEDICAL WORDS. 
GOODWD(GINDEX,1)=IVALID 
GOODWD(GINDEX,2)=1 
GINDEX=GINDE X41 
THE ZERO AT THE END OF THE LIST IS AN END OF LIST SIGNAL 
GOODWD(GINOEX,1)=0 
SET INDICATOR SHOWING A VALID WORD IN SENTENCE BEING PROCESSED. 
36 ISENT=IVALID 
IVALID=0 
GO PICK UP A NEW TEXT WORD 
GO TO 25 
SINCE WORD IS ALREADY IN LIST, ONLY INCREASE ITS COUNT. 
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SOURCE STATEMENT 


37 GOODWD(J»2)=GODDWD(J»2)+1 
GO TO 36 


Me Me HE He He He EE HE EE EE Ee EEE EE Ee EE EE EE EE EE EE EE EE EE 
#e#e#e88# VALID WORD ASSOCIATIONS SECTION ##eee# 
REE EERE EE EE EEE EEE EE EE He Ge EE EE EE EE EEE EEE 
EXAMINE THE PRESENT WORD TO SEE IF IT IS MEDICAL OR NON-MEDICAL. 
38 TYPE] = (IABS(DICT(IVALID-1))+99)/100 
GO TO (39,3943), TYPEL 
THE PRESENT WORD IS A MEDICAL TERM. 
39 TYPE2 = (LABS(DICT(ISENT-1))+99)/100 
TEST THE PREVIGQUS VALID WORD IN SENTENCE TO SEE IF IT IS A NONMEDICAL 
WORD. 
IF (TYPE2.NE.3) GO TO 30 
IVALL=IVALID 
ILVAL2=ISENT 
CONVERT THE NON-MEDICAL WORD TO ITS BASIC TERM. 
40 IVAL2 = IABS(DICT(IVAL2-1) )-200 
IVAL2 = PACKL(IVAL2) 
PACKNO = IABS(DICT(IVAL1-1)) 
CONVERT, IF NECESSARY, THE MEDICAL WORD TO ITS BASIC TERM. 
IF (PACKNO«EQe50-eORe PACKNO .6€Q-49) 1 VAL1=PACK4 (4#*P ACKNO-2) 
SEARCH THE LIST OF ASSCCIATED VALID WORDS FOR THE SAME TwO WORDS. 
DO 41 J=l»SINDX3 
IF (IVALL.EQ-SUPL3(J,1)-ANDeIVAL2.EQeSUPL3(J,2)) GC TO 42 
41 CONTINUE 
PUT THE TWO NEW TERMS AT THE END OF THE LIST. 
SUPL3(SINDX3,1)=IVALL 
SUPL3(SINDX3,2) =IVAL2 
PUT IN A COUNT OF THE ASSOCIATION. 
SUPL3(SINDX3,3)=1 
SINDX3=SINDX 341 
SET UP AN -END OF LIST= INDICATOR} 
SUPL3(SINDX3,1)=0 
SUPL3(SINDX3 52) =0 
GO TO 30 
THE TwO TERMS ARE ALREADY IN THE LIST, INCREASE THE COUNT. 
42 SUPL3( 3093) = SUPL3(J,3)41 
GO TO 30 
THE PRESENT VALID WORD IS NON-MEDICAL, TEST THE PREVIOUS VALID WORD 
IN SENTENCE TO SEE IF IT IS A MEDICAL TERM. 
43 TYPE2=TYPEL 
TYPEL=(LABS(DICT(ISENT~-1)) +99) /10041 
IF (TYPEL-NEeLeANDe-TYPEL-NE-2) GO TO 30 
IVALL=ISENT 
IVAL2=IVALID 
GO TO 40 
EEE EH EE EE EEE HE EE EEE EEE EE EE EE EE EE EE ET 
##e#ee# END OF ARTICLE SECTION ##8888 
EEE EE EE EE EE EE ee EE EE EE EE Ee ee EE EE EE 
44 GINDEX = GINDEX-1 
PRINT THE NUMBER OF WORDS IN THIS ARTICLE. 
CALL CONCOD(wROCT) 
IF(WOCTeLT~-1000) GO TO 107 
ROCT = OR(ROCT,OOUBL) 
GO TO 168 


gill 


AT 


571 BAXEND FORTRAN SOURCE LIST EDIT 
ISN SOURCE STATEMENT 


515 107 ROCT = OR(ROCT, TREBL) 
516 108 WRITE(6,45) WOCT,s NOWRD 
517 45 FORMAT(1HOe15e4A6,/) 


520 WRITE(4) NCOLINE 
521 WRITE (4) WRDOCT,NOWRD, (NOLINE(I) sI=1,7) ; 
526 WRITE(4) NOLINE 
C PRES RSET ESET ESI EET EET EES EEE TES SE SF 
C # PRINT VALIO WORDS SUB-SECTION * 
C PRRSZESELTE EES SLI SES EEE LET ETE TERE SE SE 
C PROCESS LIST OF VALID WORDS. 
527 DO 60 I = LeGINDEX 
j 530 KT = 0 
: C TEST To SEE IF THIS WORD WAS ALREADY DONE. 
é 531 IF (GOCDWO(I,1)-£Q.0) GO TO 60 
; 534 IVALID = GOOOWD(I,1) 
yf C INITALIZE PRINT LINE INDEX. 
535 LINDEX = 0 
536 PACKNO = IABS(DICT(IVALIO-1)) 
C LOCATE THE PACKAGE FOR THIS WORD. 
537 PINDEX = PACKNO#4-3 
4 C GET THE REGISTRY NUMBER OUT OF THE PACKAGE. 
; 540 REGNO = PACK4(PINDEX) 
C Kfm tess ses tose 
541 NP = NP+#l 
542 IF (REGNO.EQ.0) PAKNOS(NP) = PACKNO 
C TEST FOR A NULL REGISTRY NUMBER OR ONE WITH AN MX PREFIX. 
; 545 IF (REGNO) 47,51246 
d 546 46 ITEMP = REGNO 
547 GO TO 48 


j 550 47 ITEMP = —(REGNI+8000000) 
C PLACE MX-8 PREFIX IN LINE. 


4 551 LINE(L) = MA 

552 LINE(2) = X d 
; 553 LINE(3) = OASH q 
' 554 LINE(4) = EIGHT y 


555 LINDEX = 4 
C CONVERT THE REGISTRY NUMBER (IN BINARY) TO CODED (A6 FORMAT). 
556 48 KWORD(1) = ITEMP 

: 557 KT = 1 


560 CALL CCNCOD(KWORD(1)) 
C CONVERT THE A6é FORMAT TO Al. 
561 NWRDS = 1 

562 CALL DECOMP 

' € LOOK FOR A LEADING ZERO IN THE REGISTRY NUMBER. 

563 IF (ITEMP.LT.100000.AND.REGNO.GT.0) GO TO 49 

566 LINDEX = LINDEX+1 
| C PUT THE FIRST DIGIT IN THE PRINT LINE. ; 
567 LEINE(LINDEX) = WORD(1) 


570 49 00 50 J = 296 
C PLACE LAST 5 DIGITS OF REGISTRY NUMBER IN PRINT LINE} 


571 LINDEX = LINDEX+#1 

572 50 LINE(LINDEX) = WORD(J) : 
q 574 LINDEX = LINDEX#1 
575 LINE(LINDEX) = BLANK 


C Hart ttt te te , 
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NP NP=1 
NR NR+el 
REGNOS(NR) = REGNO 


- INITIALIZE COUNT OF REFERENCES TO THIS PACKAGE. 


51 PCOUNT = 0 
KT = KT + l 


LOOK THROUGH THE REST OF THE LIST FOR A REFERENCE TO THE SAME PACKAGE » 


IF FOUNCs ENCREASE COUNT. 
DO 52 J = IsGINDEX 
IF (GOCOWD(J,i)-EQ.0) GO TC 52 
ITEMP = GOCOWD( J,1) ; 
IF (LABS(DICTCLTEMP-1)).EQ.PACKNO) PCOUNT = 
52 CONTINUE 
RECORD THE NUMBER DF REFERENCES IN PRINT LINE. 
LINDEX = LINDEX+1 
LINE C(LINDEX) = LP 
LINDEX = LINDEX+1 


REDUCE THE PACKAGE REFERENCE COUNY TO AN INDICATOR. 


IN = 2 
IF (PCCUNT#1000.LE-WDCT) IN = 
IF (PCOUNT#1000.GE.3#WDCT) IN 
GO TO (91292) 5KT 
91 PKNOWT(NP) = IN 
GO TO 93 
92 REGNWT(NR) = IN 
93 KT = 0 
53 LINE(LINDEX) = INDICCIN) 
LINDEX = LINDEX+1 
LINE(LINDEX) = RP 
LINDEX = LINDEX+1 
LINE(LINDEX) = BLANK 
NOW PROCESS EACH TERM CONTAINED IN THE PACKAGE. 
DO 54 J = 13 
JJ = PINDEX+J 
PTERM = PACK4(JJ) 
CHECK FOR A NULL TERM IN THE PACKAGE. 
IF (PTERM-EQ.0) GO TO 54 
PLACE THE PACKAGE TERM IN THE PRINT LINE} 
CALL WRDPUT(PTERM,2) 
LINDEX = LINDEX+1 
LINE (LINDEX) = COMMA 
LINDEX = LINDEX+1 
LINE(LINDExX) = BLANK 
EXAMINE THE REST OF THE VALID WORD LIST FOR THIS 
DO 54 K = IsGINDEX 
IF (GOCOWD(K,1)-NE-PTERM) GO TO 54 


1 
= 3 


STRIKE THIS WORD FROM THE LIST SINCE IT HAS BEEN PRINTED ALREADY. 


GOODWD (Kyl) = 9 
54 CONTINUE 


NOW EXAMINE THE LIST OF VALID WORDS FOR A WORD THAT BELONGS TO THE 
PACKAGE BEING PROCESSED BUT IS NOT CONTAINED IN THE PACKAGE. 


55 DO 57 J= IsGINDEX 
IF (GOCDWD(J21).EQ.0) GO TO 57 
ITEST = GOODWD(J,1) 
IF (ILABS(DICT(ITEST=-1))eNE«PACKNO) GO TO 57 


a 


PCOUNT+GOODWD(J,2) 
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WE HAVE FOUND A WORD BELONGING TO THE PACKAGE BEING PROCESSED. 
GOODWD(J,l) = 0 
TEST THE PACKAGE NUMBER, IF NEGATIVE DO NOT PRINT THE WORD. 
IF (DICTC(ITEST<“1)) 57957956 
PUT THE WORD IN THE PRINT LINE. 
56 CALL WROPUT(ITEST,2) 
LINDEX = LINDEX+1 
LINE(LINDEX) = COMMA 
LINDEX = LINDEX+1 
LINE(LINDEX) = BLANK 
eFfe- Fo Fos Fot-f- f$—-F 
NTN = NTN4¢L 
TRNAMS(NTN) = ITEST 
57 CONTINUE 
CHECK FOR AN EMPTY PRINT LINE. 
IF (LINDEX.EQ.9) GO TO 59 
00 NOT PRINT LAST COMMA AND BLANK. 
LINDEX =LINDEX-2 
PRINT THE LAST LINE FOR THIS PACKAGE. 
WRITE (6,58) (LINE( J)» J=1,/LINDEX) 
58 FORMAT (1H »132Al) 
CALL TAPREC 
SKIP A LINE BETWEEN PACKAGES. 
59 WRITE (6,58) 
WRITE (4) NOLINE 
60 CONTINUE 
SHSSHSSSSSSHEKSSFKFFKKKSKSFSEHHHFSFAER SEES ST 
# PRINT WORD ASSOCIATIONS SUB-SECTION # 
SRSKSSSSSHKSSSSFFSSKFFFFFFFLSEKCKKEFKEE FEES 
SKIP TWO LINES FOR NEXT OUTPUT SECTION. 
WRITE (6561) 
61 FORMAT (1HO) 
WRITE (4) NOLINE 
WRITE (4) NOLINE 
SINDX3=SINDX3-1 j 
= faegoryg-t—-to-to-t—-t—-Ft 
SAVE THIS FILE -AS IS-- 4 
NC = SINDX3 : 
DO 81 J = le2 
00 81 I = LleNC : 
81 COMPAR(I,J) = SUPL3(I,J) j 
PROCESS LIST OF WORD ASSOCIATIONS. q 
DO 64 I = leSINOX3 
SKIP ANY WORD ALREADY DONE. 
IF (SUPL3(I,1)-EQ.0) GO TO 64 
ML = SUPL3(I»)) 
INITIALIZE FOR A NEW PRINT LINE} 
LINDEX = 0 
PUT THE MEOICAL TERM IN THE PR: ‘*¢ LINE FOLLOWED BY A SLASH. 
CALL WRDPUT(M1, 0) 
LINDEX = LENGTH#tl a 
LINE(LINDEX) = SLASH 7 
SEARCH THE RECORD FOR THE SAME MEDICAL TERM. 
DO 63 J = I,SINOX3 i 
IF (SUPL3(Je1l)eNEeM1L) GO TO 63 


a a a 
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50 
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ISN SOURCE STATEMENT 
C REMOVE THE MEDICAL TERM FROM THE FILE. 
756 SUPL3(Je1) = 0 
C REMOVE THE NON-MEDICAL TERM. 
757 M2 = SUPL3(Je2) 
C REMOVE THE COUNT FIR THIS ASSOCIATION. 
760 NUMOCC = SUPL3(J23) 
761 LINDEX = LINDEX +1 
762 LINE(LINDEX) = BLANK 
C PUT THE NON-MEOICAL TERM IN THE PRINT LINE} 
763 CALL WROPUT(M2_,5) 
C INSERT A FREQUENCY COUNT INDICATOR. 
7164 LINDEX = LINDEX+#+1 
765 LINE(LINDEX) = BLANK 
766 LINDEX = LINOEX+#1 
767 LINE(LINDEX) = LP 
770 LINDEX = LINDEX+#1 
771 IN = 2 
772 IF (NUMOCC#1000.LE. WOCT) IN = 1 
775 IF (NUMOCC#1000.GE.3# WDCT) IN = 3 
1060 COMPWT(J) = IN 
100] 62 LINE(LINDEX) = INDIC(IN) 
1002 LINDEX = LINDEX+1 
1003 LINE(LINDEX) = RP 
1004 LINDEX = LINDEX+1 
1005 LINE(LINDEX) = COMMA 


10uU6 63 CONTINLE 
C DU NOT PRINT LAST COMMA IN THE LINE. 


1010 LINDEX = LINDEX-1 
C PRINT THE INCOMPLETED LINE. 
loll WRITE (6,58) (LENE( J)» J=leLINDEX) 
1016 CALL TAPREC ; 
1017 = 64 CONTINUE 
C “fk k— SK tote eK * § 


1021 WRITE (3) ARTNUMs NAsAUTHOReNTNe TRNAMS eNReREGNGS» REGNWT, NP, } 
LPAKNOS sPKNOWTeNC » COMPAR, COMPWT 4 
EEE EEE EERE EERE EEE EE HEHE HE 
* PRINT NON-MEDICAL wORDS SUB-SECTION * 
eee SCIPS E TEI eer eerie Teter ees it S| 
SKIP TWO LINES BEFORE DOING NEXT PRINT SECTION. 
WRITE (6,61) 
TEST PROGRAM PARAMETER TO SEE IF NON-MEDICAL WORDS ARE TO BE LISTED. 
1023 GO TO (65,68) » SW2 
1024 65 NMINDX = NMINDX-1 ; 
CHECK FOR AN EMPTY FILE. 4 


1022 


oO aaAAN 


C 
1025 IF (NMINDX.EQ.0) GO TO 68 
C INITIALIZE PRINT LINE INDEX. 
1030 LINDEX = 0 
C PROCESS THE NON-MEDICAL FILE. 
1031 DO 67 I = 1lyNMINDX 
C TAKE THE WORD AND FREQUENCY COUNT FROM THE FILE. 
1032 M = NMWORD (191) 
1033 NUMOCC = NMWORD( 1,2) 
C PUT NON-MECICAL TERM IN PRINT LINE} 
1034 CALL WRDPUT(My6) 


C PUT THE NUMBER OF OCCURANCE OF TERMS IN LINE. 
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571 BAXEND FORTRAN SOURCE LIST EDIT 


j ISN SOURCE STATEMENT 
i 1035 LINDEX = LINDEX+#1 
: 1036 LINE(LINDEX) = LP 
: 1037 NDIGIT = 1 
1040 IF (NUMOCC.GT.9) NDIGIT = 2 
C CONVERT COUNT FROM BINARY TO CGDED (A6 FORMAT). 
1043 CALL CCNCOD(NUMOCC) 
: C CONVERT FROM A6é TO Al FORMAT. 
, 1044 KWORD(1) = NUMODCC 
4 1045 NWRDS =1 
1046 CALL DECCMP 
: 1047 DO 66 J =l1,»NOISIT 
4 1050 JJ = 6+J-NDIGIT 
4 1051 LINDEX = LINDEX+#+1 
F 1052 66 LINE(LINDEX) = wORD(JJ) 
4 1054 LINDEX = LINDEX+4+1 
: 1055 LINE(LINDEX) = &P 
: 1056 LINDEX = LINDEX+1 
1057 LINE(LINDEX) = COMMA 
1060 LINDEX = LINDEX+1 
4 1061 LINE(LINDEX) = BLANK 
F 1062 67 CONTINUE 
1064 IF (LINDEX.EQ-9) GO TO 68 
C 00 NOT PRINT THE LAST COMMA AND BLANK. 
1067 LINDEX = LINDEX-2 
q C PRINT THE LAST INCOMPLETE LINE. 
i 1070 WRITE (6,58) (LINE( I), I=1L,LINDEX) 
F Cc Pw eT EPEC ESS eS ee eer errr! 
; Cc # PRINT COMPARISONS SUB-SECTION # 
4 C Pee eee ETE SETS TT eee Tree ei etri ss tT 
C TEST PROGRAM PARAMETER TO SEE IF COMPARISONS ARE TO BE LISTED. 


1075 68 GO TO (69569574578) » SWI 
1076 69 SVINOX = 1 
C PRINT HEADING. 


1077 WRITE (6,70) 
q 1100 70 FORMAT (1H0,15Xy21HC OM PARIS ON S/LH »5X,6HDEGREEs 5X» 30HTEX 
; 1T wORD - DICTIONARY WORD) 
C CHECK FOR AN EMPTY FILE. 
; 1101 IF (SUPL(1).NE.0) GO TC 72 
: 1104 WRITE (65971) 
q 1105 71 FORMAT (1H »15X»y7HN ON E) 
4 1106 GO TO 74 


: C LOOK FOR THE -END OF FILE- INDICATOR. 
i 1107 72 IF (SUPLOSVINOX).EQ.0) GO TO 74 


1112 M=SUPL(SVINDX) 
1113 MAX=SUPL (SVINDX+1) 
i 1114 NWROS=SUPL (SVINDX+#2) 
1115 N=(DICT(M=-2) )-3 
1116 NWINDX=SVINDX4#NWRDS4+2 
1117 JSV=SVINDX+3 
C PRINT THE TEXT WORD AND DICTIONARY WORD SHOWING DEGREE OF COMPARISON. 
§ 1120 WRITE (6,73) MAX, (SUPL(J) » J=JSV_NWINDX) »DASH, (DICT (K) ,»K=49N) 
j 1131 73 FORMAT (1H »97X91293X29A6) 
3 1132 SVINDX=NWINDX+1 


1133 GO TO 72 
Cc 


TESST ELEC ESET ET IEEE TERE ETE SET TE SS 
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[ 571 BAXEND FORTRAN SOURCE LIST EDIT 
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# PRINT LARGE WORDS SUB-SECTION * 


POTS SPST ECCS SESE S TREE ET EE RTE ELLE SS 


C 
C 
C TEST PROGRAM PARAMETER TO SEE IF LARGE WOROS ARE TO BE LISTED. 
Cc 


1134 74 IF (SW1.EQ.2) 50 TO 78 
PRINT HEADING. 

1137 WRITE (6,975) 
1140 75 FORMAT (1HO,15X,21lHL ARGE wORO 9S) 
1141 SINDX2=1 

C CHECK FOR AN EMPTY FILE. 
1142 IF (SUPL2(1).NE.0) GO TO 76 
1145 WRITE (6971) 
1146 GO TO 78 

C LOOK FOR THE -END JF FILE- INDICATOR. 
1147 76 IF (SUPL2(SINOX2).EQ.0) GO TO 78 
1152 NWRDS=SUPL2(SINDX2) 
1153 NWINDX=SINDX24NwRDS 
1154 JSIN=SINDX2+4+1 

C PRINT THE LARGE WORD. 
1155 WRITE (6977) (SUPL2(J) »J=JSINa NWINDX) 
1162 77 FORMAT (1H 917X,14A6) 
1163 SINDX2=NWINDX#1 
1164 GO TO 76 


C IDENTIFY THE END OF THE ARTICLE 
1165 78 WRITE (6,79) EOA 
1166 79 FORMAT (1HO,4A6) 


C ee et oe oe Tt ee 
1167 WRITE (4) NOLINE 
1170 WRITE (4) EQOA, (NOLINE( IT) eI=198) 
1175 ARTNUM = ARTNUM+1 

C Go CHECK FCR A NEW ARTICLE 
1176 GO TG 2 


1177 8O FORMAT (14A6) 
1200 END 
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BAXEND FORTRAN SOURCE LIST 


SOURCE STATEMENT 


$IBFTC HEAD 


SUBROUTINE HEAD 

THIS SUBROUTINE READS IN THE BIBLOGRAPHIC ENTRY CARDS OF EACH 
ARTICLE. IT CINTINUES READING CAROS UNTIL A SIGNAL CARD IS 
ENCOUNTERED. THE INFORMATION ON THESE CARDS ARE PRINTED WITH 

A MARGIN WIDTH THAT IS SPECIFIED IN THE LABELLED COMMON AREA -k-. 
INTEGER V_Z,UyV¥oW 

INTEGER RECORD( 72) ,PRINT(132) »EXeBLANK 

INTEGER WORD,AUTHOR »COMMA, ARTNUM 

COMMON /H/ NUM, ARTNUMs NAUTH, AUTHOR (6,5) 

COMMON /LIN/ PRINTsLINDEX,LM,IX(3000) 

COMMON KWORD(14) »NWRDS »WORD( 72) sLENGTH, LENO 

DATA EXsBLANK/1LHX,1H / 

DATA CCMMA/1H,/ 

NAUTH = 1 

LENGTH = 30 

READ(1524) (RECORO(Z),Z=1,72) 

IF (RECCRO( 1) -EQ.EXeAND-RECORD( 2) -EQeEX-AND-RECORD(3).EQ.EX) 
1G0 TO 30 

IEND=1 

GO TO 31 

TEND=2 

RETURN 

J=l 

WRITE(6s32) ARTNUM 

FORMAT(LH1L,»LGHARTICLE NUMBER,15) 

WRITE (4) ARTNUM 

DO 21 I = 1,30 

WORD(I) = BLANK 

I=1l 

IF (RECORO(J).EQ-BLANK) GO TO 26 

IF (RECORO(J).EQ-COMMA) GO TO 24 

WORD (1) = RECORO(J) 

Ir=1+tl 
Jest 
GO TO 22 
CALL CCMPOS 

DO 25 I = 195 
AUTHOR(NAUTH,I) = KWORD(I) 
NAUTH = NAUTH + 1 
J=zaJ+2 

GO TO 20 


IF (RECORO(J+1).NE.-BLANK) GO TO 23 
CALL CcmMPpOS 

DO 27 I = 195 
AUTHOR(NAUTH,I) = KWORO(T) 
J=1 

W=tl 

M = 0 

GO TO 28 

SET UP OUTPUT PARAMETER J. 
J=1 

W=l 

SET UP INPUT PARAMETER Me 
M= 0 


a Pa Po Ss SE 
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6 
7 


8 


9 


10 


ll 
12 


13 
14 


15 


16 


17 
19 


FORMAT(72A1) 

IF (eNOTes ( (RECORD (1) .EQeBLANK) oAND. (RECORD(2)-EQeBLANK))) GO TO 6 
DO 5 Y = WeyNUM 

PRINT(Y) = BLANK 

CONTINUE 

GO TO 12 

CHECK FOR THE SIGNAL CARD. 

IF (RECORD(L) -EQe EX) RETURN 

DO 9 IT = JyNUM 

M = M+l 

PRINT(I) = RECORD(M) 

IF (M LT. 72) GO TO 8 

IF (LeEQeNUM) GO TO 12 

GO TO 1l 

IF ((RECORD(M). EQ. BLANK) oAND. (RECORD (M41) -EQ.BLANK) eAND.(RECORD(M+ 
12)-EQe-BLANK)) GO TO 12 

CONTINUE 

IF WORD IS INCOMPLETE AT END OF OUTPUT LINE, MOVE ENTIRE WORD 

TO NEXT LINE. 

L = NUM 

IF (PRINT(L) eEQe BLANK) GO TO 13 

t =.t-1 

GO Td 10 

J = Itl 

GO TO 3 


BAXEND FORTRAN SOURCE LIST HEAD 
SOURCE STATEMENT 


READ(15e4) (RECORD(Z), Z = 1,72) 


WRITE (6914) (PRINT(K)» K = lol) 
WRITE (7919) (PRINT(K) K=1,51) 
LINDEX = I 

CALL TAPREC 
GO TU 2 


WRITE (6914) (PRENT(K), K = LoL) 
FORMAT (1H »130A1) 
WRITE (7,19) (PRINT(K) sK=1 9b) 
LINDEX = L 
CALL TAPREC 

IF (LeLT.NUM) SO TO 15 


0 16 N = LeNUM 


PRINT(V) = PREINT(N) q 
CONTINUE 

J = Vtl 

Wwe J 

IF (M -EQ. 72) GO TO 3 
GO TO 7 

FORMAT (132Al) 

END 


ots tel bod 


55 


rs 


Cra Tr fi Sn cot 


ta ELE 


ROVE i CEE siete 


Revised Version of Dictionary Processing Program 


De 


56 


31571 
ISN 


Oo 


WP WN & 


BAXEND FORTRAN SOURCE LIST 
SOURCE STATEMENT 


$IBFTC DICTDO 


C 
71 
C 
C 
C 
C 
C 
C 
1 
2 
C 
C 
3 
C 
4 
5 
C 
31 
32 
30 
70 
33 
C 


cone 


DICTIONARY PROCESSING AND CREATION OF TRANSFER MATRIX 
COMMON INDICT(12),DICT( 3000) » TRADD( 4096) 

INTEGER DICT, TRADD, END, BLANK 

DATA END, BLANK/6HENDICT» 6H / 

WRITE (6071) 

FORMAT (33HL ADDR PACK NO DICTIONARY TERM/) 
LINK IS A VALUE USED TO CHAIN DICTIONARY ENTRIES 
NLINK IS USED TO GENERATE NEXT LINK VALUE 

TWO WORDS PRECEDE EACH DICTIONARY TERM - LINKAGE AND PACKAGE 
NUMBER — HENCE FIRST TERM STARTS IN LOCATION 3 
LINK = 3 

NLINK=3 

INDX REFERS TO INDEX OF TRANSFER MATRIX 

INDX=0 

lB =1 

READ IN ONE LOGICAL RECORD - ONE DICTIONARY ENTRY 
READ(5,2) INDICT»sNPACK 

FORMAT (12A694Xe14) 

LBINK = LINK 

LINK = NLINK 

CHECK FOR END OF DICTIONARY CAROS 

IF (INDICT(1).EQ-END) GO TO 10 

NWRD REFERS TO NUMBER OF MACHINE WORDS USED BY DICTIONARY ENTRY 
NO 3 NWRD =1,12 

IF (CINDICT(NWRD) -EQeBLANK) GO TO 5 
DICT(NLINK)=INDICT(NWRD) 

NLINK=NL INK41 

IF PROGRAM COMES TO THIS POINT AN ERROR EXISTS 
WRITE(6,4) INDICT 

FORMAT(1LH »#2LHERROR ls LARGE ENTRYee 14A6) 

CALL EXIT 

NLINK=NLINK#2 

L = NWRD - l 

STORE LENGTH OF TERM IN PACKAGE NUMBER WORD 
IF(NPACK) 32931,31 

NPACK = NPACK + L#2##15 

GO TO 30 

NPACK = <—(IABS({NPACK) + Le2##15) 

DICT(LINK=-1) =NPACK 

DICT(LINK-2)=NLINK 

WRITE (6970) NPACKesNLINKe INDICT 

FORMAT (1H 9211095X%_12A6) 

IF CINDICT(L).LT.O) GO TO 6 

MXINOX IS THE MATRIX INDEX GENERATED BY A DICTIONARY ENTRY 
MXINOX=INDICT(1)/24#24 

GO TO 7 

MXINDX=2##1L1-INDICT(1)/24#24 

IF (MXINDX-INDX) 12928 

INDX=INDX41 

TRADO( INDX)=0 

GO TO 7 

INDOX=INDX+41 

TRADD ( INOX)=LINK 

GO TO (13,15),LB 


aAaAaAN 


BAXEND FORTRAN SOURCE LIST DICTDO 
SOURCE STATEMENT 


13 LB = 2 
GO TO 1 
15 DICT(LBINK-2) = 0 ' 
LB=2 
Go To l 
SET CHAIN WORD OF LAST ENTRY TO O AND LAST TERM TO END 
10 DICT(LINK=-1)=0 
DICT(LINK) =INDICT(1) 
AT THIS POINT THE DICTIONARY IS (LINK) WORDS LONG 
WRITE(6,11) TRADD 
11 FORMAT(1HO, 1016) 
WRITE(6,72) LINKs(DICT(IT),I = LeLINK) 
72 FORMAT(1HO,I8//(1H »20A6)) 
WRITE (2) TRADO 
WRITE (2) LINKe (OICTC I)» T=lLeLINK) 
BEGIN PROCESSING PACKAGE CARDS 
INTEGER PACKNO,REGNO,PACK1 (100) » PACK5( 350) »PINDEX 
DIMENSION INPUT(12) 
40 READ (5941) PACKNO,REGNO 
41 FORMAT (16,18) 
IF (PACKNO.EQ-999999) GO TO 67 
I=1+PACKNO/100 
GO TO (42242556),% I 
SHSEEEESSEEESEEESEEEEEEEEEEEEEE EEE EE 
a#eae 4=-WORD PACKAGE PROCESSING #### 
SESSEEEEEE SEES ESSERE EEE EEERE EEE 
COMPUTE THE INDEX FOR THE 4-wWORD PACKAGE 
42 PINDEX=PACKNO#4-3 
PACKS (PINDEX )=REGNO 
READ AND PROCESS 3 DATA CARDS 
DO 52 I=1,3 
PINDEX=PINDEX+1 
READ (5243) INPUT 
43 FORMAT (12A6) 
IF (INPUT(1)-EQe8LANK) GO TO 52 
DO 44 NWRDS =1,12 
IF (CINPUT(NWROS) -EQeBLANK) GO TO 45 
44 CONTINUE 
45 IF CINPUT(1)-LT-0) GO TO 46 
INDEX REFERS TO INDEX OF TRANSFER ADDRESS MATRIX 
INDEX=1+INPUT(1)/2##24 
GO TO 47 
46 INDEX=14+2#411-INPUT(1)/2##24 
USE M AS INDEX OF PROCESSED DICTIONARY 
47 M=TRADOCINDEX) 
NWRDOS=NWROS-1 
EXTRACT LENGTH OF DICTIONARY TERM FROM PACKAGE WORD - DICT(M=1) 
K = 1 
81 LENGTH = IABS(DICT(M—-1))/2##15 
IF(LENGTHeNEeNWRDS) GO TO (80,82) 9K 
MTEMP = M 
DO 48 L = 1,NWRDOS 
IFC INPUT(L) NEeDICT(MTEMP)) GO TO 80 
48 MTEMP = MTEMP + 1 


C INSERT DICTIONARY INDEX IN PACKAGE 


FT at ae 


; 
f 
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31571 


ISN 


170 
171 


172 
173 
176 
177 
200 


201 
203 


204 
205 
207 
210 
213 
215 
216 
221 
222 
223 
224 
225 
226 
227 
232 
233 
234 
237 
241 
242 
243 
244 
247 
250 
251 
252 
253 
254 
255 
262 
263 
264 
265 
272 
273 
274 
275 


aa 


Cc 


80 


BAXEND FORTRAN SOURCE LIST DICTDO 
SOURCE STATEMENT 


PACKS(PINDEX) = M 
GO TO 52 


PACKAGE TERM DOES NOT MATCH DICTIONARY TERM GO TO NEXT TERM IN 


DICTIONARY 

M = DICT(M-2) 
IF(M2EQ.0) K= 2 
GO TO 81 


82 WRITE(6,50) PACKNO, INPUT 

50 FORMAT(L2HORE PACK NOce 149 13H CAN NOT FIND/1H 95Xe9l2A6y 
LCTIONARY) 

52 CONTINUE 

‘> READ IN NEXT PACKAGE DATA CARD 
GO TO 40 


C POS SSCS TSE SEIS TES ETE SEE EES TRE TSS 


C ### 1 WORD PACKAGE PROCESSING ##*# 


C POSSE ESE SS EE TEE ESTE TESTE 


56 


58 
59 


60 
61 


63 


62 


TT 


PINDEX=PACKNO-200 

READ (5943) INPUT 

DO 58 NWRDS=1,12 

IF (INPUT(NWRDS)-EQeBLANK) GO TO 59 
CONT ENUE 

NWRDS=NWRDS-1 

IF CINPUT(1)-LT.O) GO TO 60 
INDEX=1+INPUT(1L)/2##24 

GO 19 61 
INDEX=14+2##11-INPUT(1)/2##24 
M=TRADD( INDEX) 

K = i 

LENGTH = IABS(DICT(M-1))/2##15 
IF(LENGTHeNE.NWRDS) GO TO (77579)9K 
MTEMP = M 

DO 62 L = ls NWRDS 

IFC INPUT(L) NEsDICT(MTEMP)) GO TO 77 
MTEMP = MTEMP + 1 

PACKL(PINDEX) = M 

GO TO 40 

M = NICT(M-2) 

IF(MeEQ.0) K = 2 

GO TC 63 

WRITE(6,50) PACKNO», INPUT 

GO TO 40 

WRITE (6974) 

FORMAT (22H1CODED TYPE 1 PACKAGES/) 
WRITE (2) PACKS», PACKL 

WRITE (6968) ¢PACK5(1),1=15236) 
FORMAT (1HO, 19,315) 

WRITE (6973) 

FORMAT (22H1LCODED TYPE 2 PACKAGES/) 
WRITE (6,69) (I,PACK1(1),1=1,15) 
FORMAT (1HO, 19915) 

CALL UPDAT 

CALL EXIT 

END 


L3HIN DI 
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31571 BAXEND FORTRAN SOURCE LIST 
ISN SOURCE STATEMENT 
0 $IBFTC UPDAT 
l SUBROUTINE UPDAT 
C ROUTINE FOR UPDATING DICTIONARY TAPE 
2 INTEGER ENDsBLANKs DICT, TRADD 
3 COMMON NEWDCT(12), DICT(30060)» TRADD( 4096) 
4 DATA END, BLANK/6HENDICT» 6H / 
Cc FIND END OF DICTIONARY OR LOCATION WHERE NEW DICTIONARY TERM MAY 
C BE PLACED 
5 DO 1 I = 13000 
6 IF(DICT(I).EQ.END) GO TO 2 
ll 1 CONTINUE 
13 2mT=I 
14 M = MT 
15 3 READ(5e4) NEWDCT, NPACK 
20 4 FORMAT(12A6_ 4X 14) 
2l ISW = 1 
22 M = MT 
23 IF(NEWOCT(1) eEQeEND) GO TO 16 
26 5 ITF(NEWDCT(1).LT. 0) GO TO 6 
31 MXINDX = NEWDCT(1)/2##24 + 1 
32 GO TO 7 
33 6 MXINDX = 2##1) - NEWDCT(1)/2##24 + 1 
34 7 IF(TRADD(MXINDX).EQ. 0) GO TO 17 
37 N = TRADD(MXINDX) 
C FIND END OF STRING OF THIS GROUP OF TERMS 
40 3 TF(DICT(N-2).EQ.0) GO TU 9 
43 N = DICT(N-2) 
44 GO TO 8 
45 9 DO 10 NWRD = 1912 
46 IF (NEWDOCT (NWRD) -EQeBLANK) GO TO 12 
51 DICT(MT) = NEWDCT(NWRD) 
52 lo MT = MT + 1 
54 WRITE(6911) NEWOCT 


55 11 FORMAT(1H »21HERROR ly LARGE ENTRYee 14A6) 
56 12 LENGTH = NWRD - 1 


57 MT = MT + 2 
60 IFC ISW.EQ.1) DICT(N-2) = M 
C INSERTION OF LENGTH IN WORD CONTAINING PACKAGE NUMBER 
63 IF(NPACK) 13914914 
64 14 NPACK = NPACK + LENGTH#2##15 
65 GO TO 15 
66 13 NPACK = -(IABS(NPACK) + LENGTH#2##15) 
67 15 NICT(M - 1) = NPACK 
70 GO TO 3 
C PLACE ADDRESS OF NEW TERM IN MATRIX 
71 17 TRADN(MXINDX) = M 
T2 ISW = 2 
73 GO TO 9 
C PUT END SENTINEL IN LOCATION FOR NEW WORD IN NEXT UPDATE RUN 
74 16 DICT(M) = END 
75 WRITE (6918) Me (DICT(I)s1=1leM) 
102 18 FORMAT(1HO,IS// (1H 2 20A6)) 
103 WRITE(6919) TRADO 
104 19 FORMAT(LHO, 1LOI6) 
105 RETURN 


106 END. 
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BAXEND FORTRAN SOURCE LIST 
SOURCE STATEMENT 


$IBFTC SEARCH 


137 


138 


DIMENSION KOMPAR(100,2) 

INTEGER BARBIT(15) gHYDANT( 14) sOXAZOL (7) »SUCCIN(4),TERM(4) 

DATA BARBIT/15 9500665501139 57307957330557432 464437 » 769485115388, 
1125337 9-8028679»—-80286914—-8028 704, -8028715,-8028726/ 

DATA HYDANT/ 149501249 57410,» 8635151256119 630933983089753784927,4 
15696060, 650° 348,—-8028679 »-8028691 »-8028704,~-8028726/ 

DATA OXAZOL/ 7, 1156739 1274809 5207749 526352 5 695534,4171113/ 

DATA SUCCIN/ 4,9 774189 77678 86340/ 

NATA TERM/6HBARBIT » 6HHYDANT ¢ 6HOXAZOL » 6HSUCCIN/ 

DIMENSION INPUT(12)_9NSAT(20) 

NIMENSION IDENT(20924,2) »sNGEN( 20) 

DIMENSION LOGX(20,72) 

DIMENSION LOGEXP(72) 

DIMENSION MASK (6) ¢AMSK(6) ,DIG( 6) »NDG(6) 

INTEGER RNWT(30), QRN(30) 

INTEGER CHARST(26),BLANKy RP,» CCy CCly CC2, CC3, 
LEXVsQN»eDNA,RO,PERION, QTV 

INTEGER TT, QAUTHR( 2095), TRADD(4096), DICT(3000), SSWl»s SSW2s 
lL PACK4(350), PACKL(100), PACKNO, PINDEX, QTRNMS(30), REGNO, 
2 QREGNS(30)», QPAKNS(30),QCUMP(100,2), SATIS(20,35) sAUTHOR( 695) 
3 COMPAR(100,2), TRNAMS(30),5 PAKNOS(30), REGNOS(30)»% AN,» 


4 COMPWT(100) »PKNOWT ( 30) sREGNWT (30) sQWT pRQWT (30) »PQWT (30) »CQWT(100) 


EQUIVALENCE (DIG(L) »NDG(L)) > (MASK(L) pAMSK(1)) 9 (PUTINs INPUT (2)) 
DATA MASK/O7 700000000004 07 700000000 1077000000207 70000,07700,077/ 
DATA ITBLANK/6H / 

DATA CHARST/LHA, LHB» LHC» LHD» LHEe LHF» LHGe LHHy LHI» LHJy LHKe LHL» LHM, 
LLHN» LHO» LHP» LHQ, LHR» LHS» LHT» LHUs LHV» LHW, LHX» LHY 9 LHZ/ p@MINUS/ 1LH~/ >» 
2LP/1H(/ 9RP/1H) /9 ONA/ LH#/ 9 RO/LH+/ pBLANK/LH / »PERIOD/1He/ 

COMMON I[S(500),LST 

INPUT 

REWIND 3 

READ (3) TRADD 

READ (3) Je(DICT(I),I=leJ) 

READ (3) PACK4sPACKL 

READ (3) NUMART,AN 

IF(ANsNE.999) GO TO 137 

NUMART=NUMART=1 

REWIND 3 

READ (3) TRADD 

READ (3) Je(DICT(I), l=1,J) 

READ (3) PACK4,PACKL 

WRITE (6,138) 


FORMAT(LHL,20Xy2LHLIST OF INPUT QUERIESs//1H »8HQUERY 1) 
INITIALIZE QUERY NUMBER, COUNTS. 
IWRSW = 1 

NQ = 1 

NAQ = 0 

NTNQ = 0 

NRQ = 0 

NPQ = 0 

NCQ = O 

NRR = 0 

SSW2 = 1 


BEGINe READ A QUERY TERM CARD. 


Na ee EE ET GE TOT RE 


12/31 


ISN 


77 
104 
105 
110 
lll 
112 
113 
114 
115 


63 


BAXEND FORTRAN SOURCE LIST SEARCH 12/3. \ 


SOURCE STATEMENT 


C DESCRIPTION OF QUERY DATA CARDS 

COLUMN 1 eee A LETTER REPRESENTING THE QUERY TERM. THIS MUST NOT BE Y 

C OR Z WHICH ARE RESERVED FOR THE LOGIC VALUES TRUE OR FALSE. 

C THE SAME LETTER MAY NOT BE USED TWICE IN ONE QUERY. 

COLUMN 3 wee A NUMERIC DIGIT SIGNIFYING THE TYPE OF QUERY TERM. 

C THE FOLLOWING CODES ARE USED. 

COLUMNS 4 THROUGH 76 CONTAIN THE QUERY TERM 

COLUMN 80 eee A NUMERIC DIGIT ly 2 OR 3 TO ENDICATE FREQUENCY ENDEX OR WEIGHT. 


AMANAAMNA 


1 


-~ 
<= 
m 


46 


47 


8 
9 
10 


ll 


READ (592) LETTER, TT» INPUT, QWT 

FORMAT (Al»gI2_,12A694XeA1) 

IFC IWRSWeEQe2eANDe TT NE o7) WRITE(6, 700) NQ 

FORMAT(LH »,6HQUERY »12) 

IWRSW = 1 

WRITE (69139) LETTER, TT, INPUT ,QWT 

FORMAT (1H »lOXsAl,I2,12A6,Al)} 

QWT = QWT/2##30 

FOLLOWING FORMAT IS USED ON THE QUERY CARDS TO SIGNIFY TERM TYPE 
AUTHOR 

MEDICAL TERM (CAN BE TRADE NAME OR GENERIC NAME). 
REGISTRY NUMBER. 

ASSOCIATIONS (MUST BE TWO CARDS TOGETHER) 

GENERIC TERM 

END OF QUERY. 

END OF ALL QUERIES 

DO 46 LET = 1,26 

IF (LETTER-EQeCHARST(LET)) GO TO 47 

IF (LETTER-EQeBLANK) GO TO 47 


NON FS WN 


GO TN 91 
IERR = 1 
SSWl = 1 


TEST FOR TYPE OF TERM 
GO TO (3959289225247925926)5 TT 
THIS QUERY TERM IS AN AUTHORS NAME. 


NAQ = NAQ+1 
IDENT(NQ,LET,1) = 1 
IDENT(NQsLET»2) = NAQ 


DO 4 I = 195 

QAUTHR(NAQ,T) = INPUT(T) 

GO TO NEXT QUERY TERM. 

60 TO 1 

THIS QUERY TERM IS A MEDICAL TERM. 
DO 6 NWROS = 1,11 

IF (INPUT(NWRDS#+1)-EQeI BLANK) GO TO 7 
NWRDS = 12 

SEARCH THE DICTIONARY FOR THE TERM. 
IF (INPUT(1).-LT.0) GO TO & 

INDEX = INPUT(1)/2#*24+41 

GO TO 9 

INDEX = 1+2##1L1-INPUT(1)/2##24 

M = TRADD( INDEX) 

IF (MeEQ.0) GO TO 92 

IF (INPUT(1)) 11,89,12 

IF (INPUT(1)-GTeDICT(M)) GO TO 92 


4 
H 
‘ 
4 
4 
‘ 
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BAXEND FORTRAN SGURCE LIST SEARCH 12/31 
ISN SOURCE STATEMENT 
167 GO TO 13 


170 12 IF (DICT(M).GT.-INPUT(1)) GO TO 92 
173 13 MTEMP = M 


C NOW CHECK DICTIONARY WORD FOR A FULL COMPARISON. ; 
174 NO 14 I = 1l»yNWRDS 
175 IF (DICT(MTEMP).NEsINPUT(I)) GO TO 15 
200 14 MTEMP = MTEMP+1 
| Cc NOW TEST QUERY TERM AND DICTIGNARY TERM FOR EQUAL LENGTHS. 4 
1 202 IF (NWRDS.EQ.(DICT(M—2)-(M+#2))) GO TO 16 
| C WE DO NOT HAVE A COMPLETE COMPARISON. GET NEXT DICTIONARY INDEX. 
i 205 15 M = DICT(M-2) 
if 206 GO TO 10 : 
1 C WE HAVE NOW LOCATED THE QUERY TERM IN THE DICTIONARY.» 
4 Cc TEST SSwWl. ‘ 
1 207 16 GO TO (17,23), SSwl 
7 Cc PICK UP PACKAGE NUMBER. 
| 210 17 PACKNO = DICT(M—-1) ; 
: C TEST FOR SPECIAL PACKAGE NUMBERS. 
if 211 IF (TABS (PACKNO).EQ.49) GO TO 69 
if 214 IF (TABS(PACKNO).EQ.50) GO TO 69 
if c GENERATE PACKAGE INDEX. 
7. 217 69 PINDEX = IABS(PACKNO)#4—3 q 
| 220 IF (PACKNO) 20494418 
i Cc SEARCH PACKAGE FOR TERM. 
if 221 18 00 19 I = 193 
if 222 J = PINDEX +I 
iy 223 19 IF (M.EQ.PACK4(J)) GO TO 20 
| C WE HAVE A TRADE NAME. 
| 227 NTNQ = NTNQ41 
230 QTRNMS(NTNQ) = M 
231 IDENT(NQsLET»1) = 2 
‘ 232 IDENT(NQ,LET,2) = NTNQ 
| 233 GO TO l 
| Cc PICK UP THE REGISTRY NUMBER. 
234 20 REGNO = PACK4(PINDEX) 
Ff 235 IF (REGNO.EQ.0) GO TO 21 
if 240 NRQ = NRQ+1 | 
fF C RECORD THE REGISTRY NUMBER. 
| 241 QOREGNS(NRQ) = REGNO 
| 242 RQWT(NRO) = QWT 
243 IDENT(NQ,LET,1) = 3 
! 244 TDENT(NQ,LET»2) = NRQ 
245 60 TO 1 
246 21 NPQ = NPQ+l 
C RECORD THE PACKAGE NUMBER. 
247 QPAKNS(NPQ) = IABS(PACKNO) 
250 PQWT(NPQ) = QWT 
251 IDENT(NQ,LET»1) = 4 
252 IDENT (NQyLET,»2) = NPQ 
q 253 GO TO 1 
C wenn nnn---------- : 


C WE HAVE -AN ASSOCIATION TERM. SET UP SSW1-FOR A RETURN FROM THE ‘ 
f C DICTIONARY LOOK-UP : 
254 22 SSWl = 2 d 
255 GO TO 5 


23 


C SET 
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BAXEND FORTRAN SOURCE LIST SEARCH 12/3 
SOURCE STATEMENT 


IF (SSW2.EQ-2) GO TO 24 

NCQ = NCQ + 1 

QCOMP(NCQ,1) = LFABS(DICT(M-1)) 
CQWT(NCQ) = QWT 


IDENT(NQ,LETs1) = 5 

IDENT(NQ,LET,2) = NCQ 

SSW2 FOR A RETURN WITH THE SECOND ASSOCIATION TERM 
SSW2 = 2 

GO TO l 

PACKNO = LABSC(DICT(M=-1)) 


RESET SSW2e 

SSW2 = 1 

CHECK PACKAGE NUMBER. 

IF (PACKNO.LE.200) GO TU 90 
NORMALIZE THE TYPE2 TERM. 
PINDEX = PACKNO-200 
QCOMP(NCQs2) = PACKL(PINDEX) 
GO TO 1 


C THIS QUERY TERM IS A GENERIC TERM 


247 


ean 


NOW 
25 
29 


140 


aan oa 


IDENT(NQ,LET,1) = 7 
NGEN(NQ) = INPUT(1) 
GO TO l 


WE HAVE REACHED THE END OF THIS QUERY. 
READ LOGIC STATEMENT. 

READ (5929) (LOGX(NQsI),T=1572) 

FORMAT (72Al) 

WRITE (65140) (LOGX(NQ,1),f=19 72) 
FORMAT(LH 910X972Als//) 

IWRSW = 2 

NQ = NQ+l 

GO LOUK FOR THE NEXT QUERY. 

GO TO 1 


THIS QUERY TERM IS A REGISTRY NUMBER 


ROUTINE TO CONVERT A SIX DIGIT BCD REGISTRY NUMBER TO BINARY FORM 


28 00 129 IT = 195 


129 NNG(T) 


Cc 


J = 36-681 

DIG(T) AND(PUTINsAMSK(T)) 
NDG(T)/2*#J 

DIG(6) AND( PUTIN, AMSK(6) ) 

NOR = NDG(6) + NDG(5)#10 +#NDG(4)#100 + NDG(3)#1000 + NOG(2)#10000 
1 + NDG(1L)#100000 
NRR = NRR + 1 
QRN(NRR) = NAR 
RNWT(NRR) = QWT 
IDENT(NQeLETo1) 
IDENT(NQe LET 92) 

6G TO 1 
RESET THE NUMBER OF QUERIES. 


6 
NRR 


26 NQ = NQ-1 


C 


INITIALIZE THE ARRAY OF SATISFIED QUERIES. 


pao 27 I = 1l,NQ 
NSAT(I) = 0 
NO 27 J = 1935 


Ed ee 


Ne ra wt pe 
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BAXEND FORTRAN -SOURCE LIST SEARGH - - 12/31 
ISN SOURCE STATEMENT 


343 27 SATIS(IeJ) = 0 
346 36 IF(AN.EQ.NUMART) GO TO 81 


351 READ (3) ANeNAsAUTHOReNTNe TRNAMS pNRe REGNOS» REGNWT » NP, PAKNOS » PKNOWT 
LeNC»COMPAR »COMPHT 
370 DO 75 QN = 1,NQ 
371 nO 48 J = lef2 
372 48 LOGEXP(J) = LOGX(QN,J) 
374 cc = 0 
375 IND = 1 
C RHEE EERE EH 
C ##eeeeeee EVAL ROUTINE ##+# 
C RHEE REEEEEEEEEEEEEE EE EEE 


376 49 M= 1 
377 50 CC = CC +1 


400 IF (LUGEXP(CC)-EQeBLANK) GO TO 50 
403 IF (LOGEXP(CC) .NEeMINUS) GO TO 51 
406 4M = <M 

407 GO TO 50 


C CHECK FOR ANY NEW EXPRESSION BEGINING WITHIN PARENTHESES. 
410 51 IF (LOGEXP(CC).EQeLP) GO TO 66 
413 DO 52 I = 14926 \ 
414 52 IF (LOGEXP(CC).EQ.CHARST(I)) GO TO 31 
C ERROR CHECK FOR NON-VALID CHARACTER.’ 
420 GO TQ 98 
C NO NOT SEARCH FOR ANY TERM IF Y (TRUE) OR Z (FALSE) IS IN LINE} 
421 31 IF (1.EQ-25) GO TO 34 


424 IF (1-&G-26) GO TO 36 
C IDENTIFY AND SEARCH FOR TERM REPRESENTED BY CHARACTER. 
427 IFCINDENT(QN,1,1)-EQ-7) GO TO 147 
432 TT = IDENT(OQNe I 91) 
433 INDEX = IDENT(QNeI 22) 
434 IF (TTeLE-0-OReTTeGE-7) GO TO 100 
437 GO TO (32937939941 943,239)eTT 


C SEARCH LIST OF AUTHORS. 
440 32 DO 35 IT = 1lyNA 
441 00 33 J = 195 
442 33 IF (AUTHOR( I,J) NE*QAUTHR(INDEXsJ)) GO TO 35 
446 34 QTV = l 


447 GO TO 53 
450 35 CONTINUE 
452 36 OTV = -1 
453 GO TO 53 


C SEARCH LIST OF TRADE NAMES. 
454 37 IF (NTN-EQ.0) GO TO 36 


457 DO 38 I = lyNTN 
460 38 IF (TRNAMS(T)-EQ-QTRNMS(INDEX)) GO TO 34 
464 GO TQ 36 


C SEARCH LIST OF REGISTRY NUMBERS. 
465 39 IF (NR-EQ-0) GO TO 36 


47) N0 49 IT = Ll»yNR 

471 40 IF (REGNOS(T).EQ.QREGNS( INDEX) ) GO TO 234 
475 GO TO 36 

476 234 IF (REGNWT(1)-GE-ROWT(INDEX)) GO TO 34 
501 GO TN 36 


C SEARCH LIST OF PACKAGE NUMBERS. 


dj es . ee 


502 41 
506 42 


513 134 


BAXEND FORTRAN SOURCE LIST SEARCH 


SOURCE STATEMENT 


IF (NP.EQ.0) GO TO 36 

DO 42 IT = leNP 

IF ( PAKNOS(T) -EQeQPAKNS(INDEX)) GO TO 134 
GO TO 36 

IF (PKNOWT(T)-GEsPQWI(INDEX)) GO TO 34 

GO TO 36 


C SEARCH LIST OF ASSUCIATIONS. 


517 43 


527 44 
536 45 
541 239 
545 240 
a4 334 


556 147 


573 333 


575 151 


600 155 


606 152 


611 156 


617 153 


622 157 


630 154 


633 158 


IF (NC-FQ.0) GO TO 36 

D0 45 I = 1leNC 

MM = COMPAR( 191) 

KOMPAR(I,1) = ITABS(DICT(MM-1)) 
KOMPAR(I,2) = COMPAR(I,2) 

vO 44 J = le2 

IF (KUMPAR( I oJ) NEeQCOMP(INDEX,J)) GO TO 45 
IF (COMPWT{1)-GE-CQWT(INDEX)) GO TO 34 
CONTINUE 

GO TO 36 

IF(NR -£Q.0) GO TO 36 

NO 240 I = l»NR 

IE CREGNOS( IT) EQ. QRNCINDEX)) GO TO 334 
GO TO 36 

IF(REGNWT(T) eGEe RNWTCINDEX)) GO TO 34 
GO TO 36 

ITF (NGEN(QN) -EQeTERM(1)) GO TO 151 

IF (NGEN(QN) -€QeTERM(2)) GO TU 152 

TF (NGEN(QN) eEQeTERM(3)) GO TO 153 

IF (NGEN( ON) -EQe-TERM(4)) GO TO 154 
WRITE (6,333) 

FURMAT (1HO,20HILLEGAL GENERIC TERM) 
GO TO 36 

N = BARBIT(1) 

DO 155 1=2,N 

09 155 J=leNR 

IF (REGNOS(J) -EQe3ARBIT(I)) GO TO 34 

60 TO 36 

N = HYDANT(1) 

00 156 T=2eN 

DO 156 J=leNR 

IF (REGNOS(J) eEQe HYDANT(I)) GO TO 34 
GO TO 36 

N = OXAZOL(1) 

NO 157 f=29N 

DO 157 J=leNR 

IF (REGNOS(J) eEQ- OXAZOL(I)) GO TO 34 
GO Td 36 

N = SUCCIN(1) 

DO 158 f=2eN 

NO 158 J=leNR 

IF (REGNOS(J) eEQ. SUCCIN(I)) GO TO 34 
60 TO 36 


C #* END OF SEARCH ROUTINE ## 


641 53 


“ERIC 


CC = CC+l 
IF(CC2EQ-73) GO TO 192 
IF (LOGEXP(CC).EQeBLANK) GO TO 53 


IF (LOGEXP(CC).EQePERIODeOReLOGEXP(CC) -EQeRP) GO TO 55 
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BAXEND FORTRAN SOURCE LIST SEARCH 


SOURCE STATEMENT 


IF (LOGEXP (CC). EQ-DNA) GO TO 54 
IF (QTV#M) 49999956 

54 IF (QTV#M) 57999949 

55 IF (QTV#M) - 7999956 

SET EXPRESSION wuUST CHECKEN TO TRUE} 

56 EXV =1 
Go TO 58 

SET EXPRESSION JUST CHECKED TO FALSE. 

57 EXV = 2 

eeneneee END OF EVAL ROUTINE ###* 

58 JMP = EXV+2#IND 
GO TO (869869769 75263962)9 JMP 

76 ICOUNT= NSAT(QN)+t1 

SAVE ARTICLE NUMBER FOR LATER PRINTING. 
SATIS(QN,ICOUNT) = AN 
NSAT(QN) = ICOUNT 

75 CONTINUE 

GO READ NEXT ARTICLE 


GO TO 30 

62 LOGEXP(CC2) = CHARST(26) 
.GO TO 64 

63 LOGEXP(CC2) = CHARST(25) 


64 CC = CC2-1 
DO 65 J = CC3,CC 
65 LOGEXP(J) = BLANK 
IF (CC1.NE-CC3) GO TO 67 
IND = 1 
165 CC3 = CC3 -l 
IF (CC3-EQ.0) GO TO 49 
IF (LOGEXP(CC3)-EQeBLANK) GO TO 165 
IF (LOGEXP(CC3)-NEeMINUS) GO TO 49 
IF (LOGEXP(CC2) »NEeCHARST(25)) GO TO 166 
LOGEXP (CC2) = CHARST(26) 
GO TO 49 
166 IF (LOGEXP(CC2)-EQeCHARST(26)) LOGEXP(CC2) 
GO TO 49 
RETURN FROM EVAL POINT 2. 
SAVE LOCATION OF LEFTMOST PARENTHESIS. 


66 CC1 = CC 
SET INDICATOR SHOWING WITHIN PAREN} 
IND = 2 


67 CC = CC+l 
IF (CC.GE.73) GO TO 96 
IF (LOGEXP(CC).NE.RP) GO TO 67 
SAVE LOCATION OF RIGHT PARENTHESIS. 
cc2 = CC 
68 cc = CC - 1 
IF (LOGEXP(CC).NELP) GO TO 68 
SAVE LOCATION OF LEFT PARENTHESIS. 
cc3 = CC 
GO TU 49 
96 WRITE (6997) (LOGX(QNsI),T=1,72) 


= CHARST(25) 


97 FORMAT (23HOUNBALANCED PARENTHESIS/1H »72Al) 


GO TO 75 


98 WRITE (65198) LOGEXP (CC) CC, (LOGEXP(K) sK=19 72) 
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Sere 


ISN 


766 
767 
770 
771 
772 
773 
774 
775 
776 
777 
i005 


L006 
LOO7 
LOLO 
L011 
L014 
L015 
L016 
L020 
L021 
1023 
L024 
L025 
L026 
L027 
030 
i031 
1932 
.033 
034 
035 
,036 
.037 
.040 
.041 
642 
043 
044 
045 
046 
047 
059 
051 
052 


198 


99 
199 


81 
883 


82 
83 


BAXEND 
SOURCE STATEMENT 


FORMAT (LOHOBAD CHAR 
GO TO 75 


FORTRAN SOURCE LIST SEARCH 


pAly5H LOC »13e2X,72AL) 


WRITE (69199) CCyLOGEXP(CC) 


FORMAT (1LOHOBAD TRV 
CALL EXIT : 
WRITE (69883) 
FORMAT (1H1) 

DO 82 I=1lsNQ 

K = NSAT(T) 


WRITE (6983) Te (SATIS( Le J) J=1 9K) 
FORMAT (LHO, SHQUERY» 13923H SATISFI 


DO 85 I = 1,NQ 
K 
IF (KeEQ-0) GO TO 88 
DO 84 J = leK | 

LST = LST+1 

IS(LST) = SATIS(IsJ) 
LST = LST+#l 

IS(LST) = 0 

IS(LST#+1) = ~-1 

CALL CHNXIT 
TERR=IERR41L 

IERR = TERR+1 
IDENT(NQeLETe1) = 6 
IERR = TERR+1 

IERR = ITERR+1 

TERR = TERR+1 

IERR = TERR+1 

WRITE (6995) TERReNQe 


i} 
2 
"n 
> 
= 
Feat 
-— 
‘a 


SSwW2=1 


91395XeAL) 


INPUT 


> FORMAT (6HOERROR,13,96H QUERYs1395X912A6) 


WRITE (69777) SSW19SSW2 9 PACKNO 


FORMAT(1H0»315) 
Go TO 1 
ARITE (6,101) QNeTToI 


FORMAT (9HOQUERY NOeI3» 


WRITECG, 778) INPUT 
FORMAT(1HO,12A6) 
GO TO 75 


WRITE (6987) INDsEXVeNQ,AN 
GHEXV= 9 2X9 BHON=_ 139 2X_ SHAN=9 13) 


FORMAT (SHOIND=91392Xo 


GO TO 75 
ENO 


4H TT=,14,3H 1=,13) 


ED BY ARTICLESs814,/(1H 931X,814 
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371 BAXEND FORTRAN SOURCE LIST 
ISN SOURCE STATEMENT 
O $IBFTC PRINT 
l INTEGER PR,QA,EDA,BUFFER(12) 9S(500) ,FILE (12,1150), EXCESS(20), 


1 DISK(50,3),. TRACK 

DATA EQA/6H*END O/ 

COMMON S,LST 

COMMON /GC/ FILE,IFI»EXCESSs IEXsDI SKe IDI ,L0C(5002)»,1L0,1S,EOA 
C AN I PREFIX ON A VARIABLE REFERS TO AN INDEX OF AN ARRAY 
C IDENTIFIED BY THE STEM OF THAT VARIABLE. 


Fwn 


5 REWIND 4 
6 NQ = 
C SET PRINT OPTION OFF. (1=O0FF, 2208) 
7 PR = 1 
C INITIALIZE ALL INDICIES. 
10 IS = 0 
11 IOl = 0 
12 IFI = 0 
13 ILO = 0 
14 IEX = 0 
15 NA = 0 
16 11S = IS+l 
17 IF (SCIS)) 29394 
20 2 REWIND 4 
21 CALL CHNXIT 
22 3 NQ = NG#1 
23 GO TO 1 
24 4 Ispl = 18 +1 
25 WRITE (695) NQ 
26 5 FORMAT (1H1,30X»,12HQUERY NUMBER, 13) 
27 QA = S(IS) 
30 25 IF (QA-NA-1) 6,17,18 
31 6 00 7 I = 1,ILO 
32 IF (QA-LOC(T91)) 791397 
33 7 CONTINUE 
35 DO 8 I = 1,101 
36 IF (QA-DISK(191)) 69998 
37 8 CONTINUE 
C AT THIS POINT WE HAVE BEEN UNABLE TO LOCATE AN ARTICLE. GO TO ERRORR. 
41 GO TO 900 
42 9 TRACK = DISK( 192] 
43 NL = DISK(1Iy3) 
44 IF (TFI¢NL.GT.1150) CALL SQUEEZ(NL) 
47 NWRD = NL#12 
50 M = IFI+l 
C UPDATE LOC. 
51 ILO = ILOFl 
52 LOC(ILO,1) = QA 
53 LOC(ILC,2) = M 
54 TFL = TFL+Nt 
C SAVE STARTING LOCATION OF ARTICLE. 
55 N= | 
56 26 IF (NWRD.LE.455) GO TO 10 " 
61 CALL READR3( TRACK, 4565 FILE(1_M)) 
62 TRACK = TRACK#41 
63 NWRD = NWRD-456 


64 M = M+38 


RN EL Te Te ee 


QO_ . 
‘ERIC 


ISN 


65 
66 


67 
70 
76 
77 


100 
101 
102 
107 
112 
113 


123 
124 
125 
126 


130 
131 
133 


10 


13 


BAXEND FORTRAN SOURCE LIST PRINT 


SOURCE STATEMENT 
GO TO 26 
CALL READR3( TRACKsNWRD»FILE(1L»M)) 


C PRINT THE ARTICLE. 


il 
12 


C GET 
13 
14 


15 
16 


DO 11 I = Ne IFI 

WRITE (6512) (FILE( Jef), J=1e12) 
FORMAT (1H »12A6) 

GO TO 15 

THE STARTING LOCATION AND PRINT THE ARTICLE} 
M = LOC(I,2)-1 

M = M+1 

WRITE (6912) (FILE( JM) eJ=1912) 
IF (FILE(29M).NE-EOA) GO TO 14 
DO 16 I = ISPlyLST 

IF (S(1)-EQ-QA) GO TO 1 


C SINCE THERE ARE NO OTHER REFERENCES TO THIS ARTICE, PUT IT IN EXCESS.~ 


IF (QA.EQLOC(ILO,1)) GO TO 27 


1EX = ITEX+1 
EXCESS(IEX) = QA 
GO TO l 

27 IFr = LOC(ILO,2)—-2 
ILO = ILO-1 
GO TO l 

17 PR = 2 

18 READ (4) NA 
DO 19 I = ISP1,LST 

19 IF (S(T)-EQeNA) GO TO 21 

20 READ (4) BUFFER 
IF (PR.EQe2) WRITE (6,12) BUFFER 
IF (BUFFER(2).NE-EOA) GO TO 20 
GO TO 23 

C UPDATE LOC FOR NEW ARTICLE. 

21 {LO = ILO+1 
LOC(ILC,i) = NA 
LOC(ILO,2) = IFI+i 

22 IFl = IFI+l 


IF (LFI.GT.1150) CALL SQUEEZ(50) 

READ (4) (FILEC I,» TFI), f=1,12) 

IF (PReEQ.2) WRITE. (6512) (FILECTs TFL) sT=2912) 
IF (FILE(2,1FI)-NE-EOA} GO TO 22 


C CHECK PRINT OPTION. 
23 GO TO (25424)5 PR 
24 PR = 1 


GO TO 1 


900 WRITE (6,901) 


901 


FORMAT (7HOERRORL) 
REWIND 4 

CALL CHNXIT 

END 


74 


ISN 


NE Oo 


BAXEND FORTRAN SOURCE LIST 
SOURCE STATEMENT 


$IBFTC SQEZ 
SUBROUTINE SQUEEZ(M) 
INTEGER FILE( 1251150) 5 EXCESS( 20) sDISK( 5053) »SUM,S(500) » TEMP (50)5 
1 EOA 
COMMON S»LST 
COMMON /GC/ FILE, IFI,EXCESS, LEXeDI SK, IDI yLOC( 5052), ILO, 1S,EOA 
SUM = 0 
C CHECK FOR NO EXCESS ARTICLES. 
IF (IEX.EQ.0) SO TO 15 
C COUNT THE NUMBER OF LINES IN EXCESS. 
DO 4 I = 1,TEX 
DO 1 J = 1leItO 
1 IF CEXCESS(I)-EQ-LOC( J,1)) GO TO 2 
C ERRUR IF ARTICLE IN EXCESS IS NOT LOCATED IN -LOC-. 
WRITE (6,90) 
CALL EXIT 
2 IF (J-EQ.1L0) GO TO 3 
SUM = SUM#LOC(J+1,2)-LOC(J,2) 
GO TO 4 
3 SUM = SUM+IFI41-LOC(Je2) 
4 CONTINUE 
C SEE HOW MUCH RCOM WOULD BE LEFT IN -FILE- IF EXCESS ARTICLES REMOVED. 
5 IF (IF 1+M.GT.1150+SUM) GO TO 15 
C BEGIN OVERLAYING EXCESS ARTICLES. 
C LOCATE THE FIRST ARTICLE IN ~FILE- IN EXCESS. 
DO 6 NLO = 1,ILO 
DO 6 J = 1,1EX 
6 IF (LOC(NLO,1)-EQeEXCESS(J)) GO TO 7 
C CHECK TO SEE IF FIRST ARTICLE IN EXCESS IS THE LAST ONE IN ~FILE-. 
7 IF (NLO-EQ-ILO) GO TO 14 
NFI = LOC(NLOs2) 
NXT = NLO1 
DO 11 I = NXT,ILO 
C IS THE NEXT ARTICLE IN EXCESSeece 
DO 8 J = 1,IEX 
8 IF (LOC(Is1)-EQeEXCESS(J)) GO TO 11 
LOC(NLO,1) = LOC(I,1) 
C GET FIRST LINE OF ARTICLE. 
tL = LOC(I,2) 
LOC(NLO,2) = NFI 
C GET LAST LINE OF ARTICLE. 
Lt = LCC(I+1,2)-1 
IF (1-EQ-ILO) LL=IFI 
C MOVE ARTICLE UP IN -FILE~- 
DO 10 K = Lott 
DO 9 J= 1,512 
9 FILE(J,NFI) = FILE(JsK) 
10 NFI = NFI¢41 
NLO = NLOF1 
11 CONTINUE 
C READJUST PROGRAM PARAMETERS AND RETURN 


13 IFI = NFI-1 
ILO = NLO-1 
IEX = G 
RETURN 


BAXEND FORTRAN SOURCE LIST SQEZ 
SOURCE STATEMENT 


C DELETE ONLY THE LAST ARTICLE IN -FILE- AND RETURN. 
14 IFI = LOC(ILO,2)-1 


Te ee er a 


ILO = ILO-1 
IEX = 0 
RETURN 


ENOUGH ARTICLES IN EXCESS, SO PUT ONE ON THE DISK. 
ILOM1l = IL0-1 

00 16 I = 1,TLOM1 

TemP (1) = LOC(I;1) 

ICOUNT = ILOMI-IEX 

IF (IEX.EQ.0) SO TO 18 

00 17 I = 1eIEX 

DO 17 J = 1,TLOM1 

IF (TEMP(J)-EQeEXCESS(I)) TEMP(J) = —2 
DO 19 I = ISeLST 

DO 19 J = 1, ILIM1 

IF (SC1T).NE-TEMP(J)) GO TO 19 

IF (ICOUNT.LE.l) GO TO 20 

ICOUNT = ICOUNT~1 

TEMP(J) = -2 

CONTINUE 

WRITE (6,91) 

CALL EXIT 

IF THIS ARTICLE IS ALREADY STORED ON THE DISK. 
IF (ID1-EQ.0) 53 TO 22 

DO 21 I = 1,10! 

IF (TEMP(J).EQ.DISK(I,1)) GO TO 27 

NL = LOC(J+1,2)-LOC(J,2) 

SUM = SUM+NL 


IOI = IOI+l 

C FIND NEXT AVAILABLE DISK TRACK. 
NT = NT+1 
DISK(IOI,1) = TEMP(J) 
DISK(IDI,2) = NT 
DISK(ICI,3) = NL 


L = LOC(Js2) 

IF ARTICLE EXCEEDS 38 LINES. 
IF (NL-LE.38) 50 TO 26 

CALL WRITR3(NT?456,FILE(15L)) 
NL = NL-38 

NT = NT+1 


NWRD = NL#12 
CALL WRITR3(NT»NWROSFILE(L»L)) 


GO TO 28 

SUM = SUM4DISK(1I,3) 
IEX = IEX+1 
EXCESS(IEX) = TEMP(J) 
GO TO 5 


C ERROR MESSAGES. 


90 FORMAT (44HOUNABLE TO LOCATE AN EXCESS ARTICLE IN -LOC-) 
91 FORMAT (42HOMORE ARTICLES IN -LOC- THAN REMAIN IN -S-) 


END 


% 
4 
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a 
iy 


9 Par cea 


